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дÁËÒ»¸öµ÷ÓÃIllustratorµÄ²âÊÔ³ÌÐò£¬´úÂëºÜ¼òµ¥£ºPrivate Sub Command1_Click()
Dim app As New Illustrator.Application
Dim doc As Illustrator.Document
Dim thislayer As Illustrator.Layer ......
±ÈÈç½ø³Ì¼ÓÔØеijÌÐò¡£
ÔÚÆäÔËÐÐ֮ǰ×èÖ¹¡£
È»ºóÔÊÐíºó·ÅÐС£
±ÈÈç³ÌÐòÖ÷Îļþ·¾¶ÊÇc:\test\test.exe£¬½¨Á¢ÄÚÈÝÈÎÒâµÄÎļþc:\test\test.exe.manifest¡£
¾ÍÊDz»ÖªµÀ³ÌÐòÎļþ·¾¶¡£
ÉèÖ ......
vbÖÐÔõôͨ¹ýxmlÀ´½âÎöÊý¾Ý¿âÖеÄ×Ö¶ÎÖµ¡£
û°ì·¨ÓÃXML½âÎöÊý¾Ý¿âµÄ×Ö¶ÎÖµ£¬³ý·ÇÊý¾Ý¿âÖб£´æµÄÊÇXML¸ñʽµÄ×Ö·û´®Îĵµ¡£
XMLÓÃÀ´Õ¹Ê¾²ã´ÎµÄÊý¾Ý¡£
Êý¾Ý¿âÒ»°ãÊǶþάÊý¾Ý¡£
Êý¾Ý¿âÖб£´æµÄÊÇXML×Ö·û´®¸ñʽ£ ......
ÓÐûÓк¼ÖݵÄÅóÓÑ£¬ÊìϤVBµÄ£¬ÓÐÐËȤ×öµÄ»°ÁôÏÂÁªÏµ·½Ê½
VB6 OR VB.NET?
¿Éϧ²»ÔÚº¼ÖÝ,遠³Ì¿É·ñ?
ÐǪ̈ÁªÏµ·½Ê½ÄØ
ÎÒÒ²ÁªÏµÒ»Ï£¬²»¹ýÔÚÄþ²¨
¿ÉϧÎÒÒ²²»ÔÚº¼ÖÝ
±±¾©µÄÐв»£¿
ÎÒÔÚËÕÖÝ£¬ ......
¾Ý˵javaÓïÑÔÊÇÕâÑùµÄ£¬ÄÇVBÄØ£¿
byte[] b(byte)0x62,(byte)0x11,(byte)0x72,(byte)0x31};
try {
System.out.println(new String(b,"UTF-16"));
} catch (UnsupportedEnco ......