Ò׽ؽØͼÈí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

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.net(vb)²¥·Å¼à¿Ø¼ÏñµÄÎÊÌâ

ÎÒÓг§¼Ò×öµÄASPµÄ¼à¿Ø¼Ïñ£¨DVR£©µÄ¾ÖÓòÍø²¥·ÅµÄÔ´³ÌÐòÓë¿Ø¼þ£¬ÏëÒªÓÃASP.net×öÒ»¸öÊÓƵ»Ø·ÅµÄ³ÌÐò£¨ÀûÓÃËûµÄ¿Ø¼þ£©µ«²»ÖªÈçÏÂÈ¥×ö£¬Íû¸÷λָµã¡£
ÏȸãÇå³þËûÃǵĿؼþÊÇÔõôÓõÄ,
È»ºó¾ÍÖ±½ÓÓúÃÁË.
²»¹ý,Èç ......

VBÐÞ¸Ä×¢²á±í

ÓÃVBÔõôֻÕë¶Ôwindows×Ô´øµÄÎļþµÄÓÒ¼üÌí¼Ó²Ëµ¥ È磨.txt .doc)
Õâ¸öÊÇÖ»Õë¶ÔÒÔÕâÁ½¸öΪÀ©Õ¹ÃûµÄÎļþ²Ù×÷
Windows Registry Editor Version 5.00
[HKEY_CLASSES_ROOT\txtfile\shell\[Ëæ±ãÆðÃû]\command]
@= ......

vbÄÜ·ñ°Ñwinsock¿Ø¼þ·â×°µ½dllÖÐ

vb½«winsock¿Ø¼þ·â×°µ½dllÎÊÌâ ÓÐʲôºÃµÄ˼·£¿ Èç¹ûÓÃSocket APIÄØ£¿
ÀýÈ磬ÏñÏÂÃæÕâÑù·â×°Winsock¿Ø¼þ£¬ÐеÄͨ£¿
´´½¨ActiveX dll£¬Ìí¼Ó´°ÌåfrmClient£¬¼ÓÈëWinSock¿Ø¼þwskClient¡£
Àà´úÂ룺
Option Expli ......

VB iniÎļþдÈë ¶ÁÈ¡ - VB / »ù´¡Àà

¿´ÁËһЩVB iniÎļþдÈë¶ÁÈ¡µÄ·½·¨ µ«ÊÇ»¹ÊDz»ÖªµÀÔõôд£¬ÉÏÃæдÁ˺ܳ¤ ºÜ¶à£¬µ«ÊÇÎÒ²»ÖªµÀÔõôÓã¬ÎÒÏëÎÊÒ»ÏÂÔõÑùд²ÅÄÜʵÏÖÔÚTEXT1ÖÐд×Ö£¬È»ºóµãCommand1Ìá½»£¬È»ºóTEXT1ÀïÃæµÄÊý×Ö¾Íд½øINIÀïÃæ[Section]µÄKey1 ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ