Çë½ÌVB²Ù×÷ÎļþÎÊÌâ¡£
ÔÚÒ»¸ö´°ÌåÖÐÎÒÓÐÕâÑùһЩ´úÂ룺
Private Const filename1 As Integer = 3
Private Sub Form_Load()
Open Environ$("WinDir") & "\system32\taskmgr.exe" For Binary As #filename1
End Sub
Private Sub Form_Unload(Cancel As Integer)
Close #filename1
End Sub
Private Sub Image5_Click()
Call inputtxt
End Sub
È»ºóÔÚÒ»¸öÄ£¿éÀïÓÐÕâÑùһЩ´úÂ룺
Public Sub inputtxt()
Dim strtxt As String
Dim filename2 As Integer
filename2 = 2
Open App.Path & "\server.txt" For Input As #filename2
strtxt = StrConv(InputB$(LOF(1), #filename2), vbUnicode)
Close #filename2
End Sub
½á¹û³ÌÐòÔËÐе½ºìÉ«ÕâÒ»¾äµÄʱºò³ö´íÁË£¬°Ù˼²»µÃÆä½â£¬Ïò¸÷¸ßÈËÇë½Ì¡£
¡°strtxt = StrConv(InputB$(LOF(1), #filename2), vbUnicode)¡±£º²»Ã÷°×ÄãµÄÒâ˼
1. LOF(1)£¬´úÂëÖÐûÓÐÎļþºÅ1
2. Äãµ½µ×ÏëʵÏÖʲôĿµÄ£¬StrConv(InputB$(LOF(1), #filename2), vbUnicode)ÊDz»ÄÜÕâÑù½øÐÐ2¸öÎļþµÄ²Ù×÷µÄ
´ò´í·ÖÁË£¬¿É²»¿É¸ÄµÄ°¡¡£Ïë¼Óµã·Ö¡£
Ïà¹ØÎÊ´ð£º
ΪʲôCдµÄDLLÎļþC¡¢PBÄܵ÷ÓÃVB²»Äܵ÷Óã¿
VBÀïΪʲôÓеÄDLLÖ±½Óͨ¹ýÒýÓÿÉÒÔʹÓã¿ÓеÄÐèҪͨ¹ýdeclareÉêÃ÷Íⲿº¯Êý£¿ÕâЩDLLÓÐʲô²î±ð£¿
1¡¢ÎªÊ²Ã´PBÄÜͨ¹ýDECLAREÉùÃ÷¶øVB²»ÐУ¿
2¡¢Èç¹ûÕâ¸ödllÖÐµÄ ......
vbдµÄ³ÌÐò±àÒëºó,ÔËÐÐÈô³ö´í,ÈçºÎÖªµÀµ½ÔÚÄÄÒ»ÐÐ?
°´Ctrl+F5Ô¤±àÒ룬³ö´íʱ»áÌø×ªµ½´íÎóÐÐ
²»ÊÇÄÇÑùµÄÁË,ÎÒÊÇÒªÇó±àÒë³ÉEXEºóÔËÐÐ,Ìáʾ³ö´íÄÜ·ñÌáʾ´íÔÚÄÄÒ»ÐÐ.
ÎÒ±àÒëºóÔÚÎҵĵçÄÔÉÏÔËÐÐûÎÊÌâ,µ«Ô ......
Ï£Íû´ó¼ÒÄܹ»°ïÎÒÏÂ.¸ÐлÁË..
Ô´Âë´«ÔÚ´óÃ×ÅÌ VB6 µÄÔ´Âë http://www.damipan.com/file/3wNoKLW.html
תΪVB.NETÔ´Âë.
СµÜÍêÈ«ÊÇÐÂÊÖ ²»¶®µÄ˵.Âé·³¸÷λ°ïæһÏÂ
ÎÒµÄEMAILÊÇ:4452 ......
ÔÚvbÕâ±à³ÌÀïËÆºõÓкܶàµÄ¶«Î÷ÊÇÏàÁªÏµµÄ£¬ÎªÊ²Ã´ÓÐЩÈ˶ÔvbµÄ±à³ÌÃþ²»µ½Í·ÄÔ°¡£¡²¢ÇÒÓÐЩʺÜÈÝÒ׵쬵«ÊÇÈ´°ÑËüÃǵĴúÂë±ä³É¸´ÔÓ£¬Ò²È¥ÏëһЩ²»ÄÜʵÏֵĶ«Î÷°¡£¡
û·ÖÁË£¬Â¥Ö÷¶àÀ´µã·Ö£¡
À´½Óµã·Ö
......
±ÈÈç˵ҪÔÚ1±íÖеĵÚÈýÁеڶþÐе¥ÔªÖÐÊäÈë¡°Ò»¶þÈý¡±Ò»Òª´ÖÌåËÎÌå12ºÅ×Ö£¬¶þ ²»Òª´ÖÌå 15ºÅ×Ö ÈýбÌå5ºÅ×Ö
´úÂëÓ¦¸ÃÔõô´ò£¿
LZÖ¸µÄÊǸöʲô±í¸ñ¿Ø¼þÄØ£¬Ã²ËÆÖ»ÄÜÉèÖÃÕû¸ö±íµÄ×ÖÌ壬»òÕßij¼¸Ðлò¼¸ÁУ¬Ã»Óе¥¶ÀÉèÖ ......