Ò׽ؽØͼÈí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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
È»ºóÔÙ·¢ËÍ
ÒòΪ·¢ËͺͽÓÊÕ¶¼ÊÇÐèҪʱ¼äµÄ£¬²»ÊÇ˲¼äÍê³ÉµÄ


  Â¥ÉϵÄÅóÓ


Ïà¹ØÎÊ´ð£º

vbдµÄ³ÌÐò±àÒëºó,ÔËÐÐÈô³ö´í,ÈçºÎÖªµÀµ½ÔÚÄÄÒ»ÐÐ?

vbдµÄ³ÌÐò±àÒëºó,ÔËÐÐÈô³ö´í,ÈçºÎÖªµÀµ½ÔÚÄÄÒ»ÐÐ?

°´Ctrl+F5Ô¤±àÒ룬³ö´íʱ»áÌøתµ½´íÎóÐÐ

²»ÊÇÄÇÑùµÄÁË,ÎÒÊÇÒªÇó±àÒë³ÉEXEºóÔËÐÐ,Ìáʾ³ö´íÄÜ·ñÌáʾ´íÔÚÄÄÒ»ÐÐ.

ÎÒ±àÒëºóÔÚÎҵĵçÄÔÉÏÔËÐÐûÎÊÌâ,µ«Ô ......

´ÓVBתÐÐVB.NET~~~¿ªÊ¼µÄʱºòÈçºÎѧ»ù´¡ÈëÃÅ°¡~

VBżѧµÃ²»´í£¬ÏÖÔÚ´óÒ»£¬¸ßÈýµÄʱºò¾ÍѧVBÁË£¬ÏÖÔÚѧУÀﶼÊÇѧC#ºÍVB.NETµÄÐֵܶࡣ¡£¡£
żҪתÐÐVB.NETÁË~µ±ÄêѧVBѧÁË2Ä꣬¶ÔVBÀïÃæµÄ³£Óú¯Êý¶¼Ê®·ÖÁ˽⡣
Select¡¢If½á¹¹¡¢For NextÑ­»·¡¢µÈ¶¼Á˽⡣¡£¡£ ......

VBÈçºÎÁªÏµÁ½¸ö´°Ì壿

¾ÍÊÇÉè¼ÆÒ»¸ö¼ÆËã»úÄ£Ä⿼ÊÔϵͳ£¬´øÓÐѧÉúºÍ¹ÜÀíÔ±£¬ËùÒԵǼ´°ÌåºÍÖ÷´°ÌåÏë·Ö¿ª£¬µÇ½ѧÉúµÄÏÔʾѧÉúµÄÖ÷´°Ì壬µÇ½¹ÜÀíÔ±ÏÔʾ¹ÜÀíÖ÷´°Ì壬ÎÒÖ»»áÒ»¸ö´°ÌåÓÃÒ»¶Ñ¿Ø¼þ£¬ÏÖÔÚÏíÓжà¸öÖ÷´°Ì壬²»ÖªµÀÔõô×ö£¬Ï£ÍûÇë´ó ......

vb²éѯÊý¾Ý¿âÎÊÌâ

ÔõôÓÅ»¯²éѯµÄЧÂÊ£¬±ÈÈçÎÒÏë´Ó100ÍòÌõ¼Ç¼ÖÐÿ´ÎÖ»²éѯ100Ìõ¼Ç¼µÄ»°£¬ÄÇôÕâÌõsqlÓï¾ä¸ÃÔõôʵÏÖ£¬×¢Ò⣺ÓïÑÔÊÇVBScriptµÄ£¬
http://www.cnblogs.com/anjou/archive/2007/10/17/926944.html

Éæ¼°µ½Ëã·¨£¬goog ......

vb²åÈëÊý¾Ý¿âÖظ´ÖµÎÊÌâ

ÔÚvbÖÐÔõôÅжϣ¬²åÈëµ½Êý¾Ý¿âÖеÄÖµÊÇÖظ´µÄ£¬±¾È˲ŸսӴ¥VBÓïÑÔ£¬ÉõÊÇÓкöàµØ·½»¹²»¶®£¬»¹Çë¸÷λ´óÏÀÃǸø³ö´úÂ룬ллÁËѽ£¡£¡£¡
²åÈë֮ǰselectһϰ¢¡£
»òÕßдһ¸ö×éºÏSQL²åÈëÓï¾ä£¬ÀýÈç
IF not Exist(
& ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ