VB¶ÁÈ¡TXTÎÊÌ⣬Çë¸ßÊÖÖ¸µã
˼·£ºwinsock½ÓÊÕµ½ÃüÁîºó£¬ÔÚCMDÏÂÖ´ÐÐÃüÁÃüÁî½á¹û±£´æÔÚ1.TXTÎļþÀȻºóÖðÐжÁÈ¡ÄÚÈÝÓÃwinsock°ÑÖ´Ðнá¹û·¢ËÍ»ØÀ´¡£Ë¼Â·ÊÇÕâÑùµÄ£¬Çë´ó¼ÒÏÈ¿´¿´´úÂ룺
Private Sub Wk_DataArrival(ByVal bytesTotal As Long)
Dim datas As String, pdi
Dim hpro, tet As String
Wk.GetData datas
On Error Resume Next
pdi = Shell("cmd.exe /c " & datas & ">>c:\1.txt", vbHide)
here:
hpro = OpenProcess(PROCESS_ALL_ACCESS, False, pdi) 'ÅжÏshellµ÷Óà ÊÇ·ñÍê³É¡£
If hpro <> 0 Then
MsgBox "ÔËÐе½ÎÒÁË"
GoTo here
Else
'¶ÁÈ¡1.txtÄÚµÄÄÚÈÝ
Open "c:\1.txt" For Input As #2
Do While Not EOF(2)¡¯-------------------------------±ê¼Ç¿ªÊ¼´¦
Line Input #2, tet
Wk.SendData tet & Chr(13)
Loop¡¯------------------------------------------------±ê¼Ç½áÊø
Close #2
Kill "c:\1.txt"
End If
End Sub
ÎÊÌ⣺ ΪʲôÔÚÉÏÃæ´úÂë±ê¼ÇµÄµØ·½»á³öÏÖËÀÑ»·£¿¶øÇÒ·¢Ë͵ÄÊý¾ÝÈ«ÊÇ¿Õ¸ñ£¨½ÓÊն˽ÓÊÕµ½µÄÊý¾ÝÈ«ÊÇ¿Õ¸ñ£© ÊÇʲôÔÒò°¡£¿Çë¸ßÊÖ°ï°ïæ°¡¡£
Line Input #2, tet Ç°¼Ódoevents
Wk.SendData tet & Chr(13) & Chr(10)
ÄãÕâ¸ö˳Ðòû¸ãÃ÷°×°É
Ó¦¸ÃÔÚWk_DataArrivalÀïÃæÆô¶¯¸öTimer
ÔÚTimerµÈ´ýÊý¾Ý½ÓÊÕÍê±Ï
ÔÙдµ½Text
È»ºóÔÙ·¢ËÍ
ÒòΪ·¢ËͺͽÓÊÕ¶¼ÊÇÐèҪʱ¼äµÄ£¬²»ÊÇ˲¼äÍê³ÉµÄ
Â¥ÉϵÄÅóÓ
Ïà¹ØÎÊ´ð£º
ÎÒÓг§¼Ò×öµÄASPµÄ¼à¿Ø¼Ïñ£¨DVR£©µÄ¾ÖÓòÍø²¥·ÅµÄÔ´³ÌÐòÓë¿Ø¼þ£¬ÏëÒªÓÃASP.net×öÒ»¸öÊÓƵ»Ø·ÅµÄ³ÌÐò£¨ÀûÓÃËûµÄ¿Ø¼þ£©µ«²»ÖªÈçÏÂÈ¥×ö£¬Íû¸÷λָµã¡£
ÏȸãÇå³þËûÃǵĿؼþÊÇÔõôÓõÄ,
È»ºó¾ÍÖ±½ÓÓúÃÁË.
²»¹ý,Èç ......
ÓÃVBÔõôֻÕë¶Ôwindows×Ô´øµÄÎļþµÄÓÒ¼üÌí¼Ó²Ëµ¥ È磨.txt .doc)
Õâ¸öÊÇÖ»Õë¶ÔÒÔÕâÁ½¸öΪÀ©Õ¹ÃûµÄÎļþ²Ù×÷
Windows Registry Editor Version 5.00
[HKEY_CLASSES_ROOT\txtfile\shell\[Ëæ±ãÆðÃû]\command]
@= ......
vb½«winsock¿Ø¼þ·â×°µ½dllÎÊÌâ ÓÐʲôºÃµÄ˼·£¿ Èç¹ûÓÃSocket APIÄØ£¿
ÀýÈ磬ÏñÏÂÃæÕâÑù·â×°Winsock¿Ø¼þ£¬ÐеÄͨ£¿
´´½¨ActiveX dll£¬Ìí¼Ó´°ÌåfrmClient£¬¼ÓÈëWinSock¿Ø¼þwskClient¡£
Àà´úÂ룺
Option Expli ......
¿´ÁËһЩVB iniÎļþдÈë¶ÁÈ¡µÄ·½·¨ µ«ÊÇ»¹ÊDz»ÖªµÀÔõôд£¬ÉÏÃæдÁ˺ܳ¤ ºÜ¶à£¬µ«ÊÇÎÒ²»ÖªµÀÔõôÓã¬ÎÒÏëÎÊÒ»ÏÂÔõÑùд²ÅÄÜʵÏÖÔÚTEXT1ÖÐд×Ö£¬È»ºóµãCommand1Ìá½»£¬È»ºóTEXT1ÀïÃæµÄÊý×Ö¾Íд½øINIÀïÃæ[Section]µÄKey1 ......