如何利用winsock??魉头獍??

lights

用byte数组！

lights

msdn网址？在地址栏 打 微软，然后找msdn

lights

msdn也有光盘版，学程序怎能没有，快去买或去下载吧！

jywg

lights: Re:如何利用winsock??魉头獍??

用byte数组！

可以??如何做???不太明白...

jywg

msdn的光?版那?可以下???我找不到...

lights

dim pick[] as byte;
redim pick[n];
许久不用vb,语法忘得差不多，类似这样

jywg

Private Sub Command1_Click()
Dim S1 As Byte
Dim S2 As Byte
Dim S3 As Byte
Dim S4 As Byte
Dim S5 As Byte
Dim S6 As Byte
Dim S7 As Byte
Dim S8 As Byte
Dim S9 As Byte
Dim S10 As Byte
Dim S11 As Byte
Dim S12 As Byte
Dim S13 As Byte
Dim S14 As Byte
Dim S15 As Byte
Dim S16 As Byte
Dim S17 As Byte
Dim S18 As Byte
Dim S19 As Byte
Dim S20 As Byte
Dim S21 As Byte
Dim S22 As Byte
S1 = ("&h6B")
S2 = ("&hDB")
S3 = ("&h89")
S4 = ("&h9E")
S5 = ("&h03")
S6 = ("&hC8")
S7 = ("&hA9")
S8 = ("&h9F")
S9 = ("&h57")
S10 = ("&h08")
S11 = ("&hAC")
S12 = ("&h9F")
S13 = ("&hAE")
S14 = ("&hAE")
S15 = ("&hAE")
S16 = ("&hAE")
S17 = ("&hAE")
S18 = ("&hAE")
S19 = ("&hAE")
S20 = ("&hAE")
S21 = ("&hAE")
S22 = ("&hAE")

'6D DB 89 9E 03 C8 A9 9F 57 08 AC 9F AE AE AE AE AE AE AE AE AE AE
'?魉偷姆獍

On Error GoTo DoWith
Winsock1.SendData S1
Winsock1.SendData S2
Winsock1.SendData S3
Winsock1.SendData S4
Winsock1.SendData S5
Winsock1.SendData S6
Winsock1.SendData S7
Winsock1.SendData S8
Winsock1.SendData S9
Winsock1.SendData S10
Winsock1.SendData S11
Winsock1.SendData S12
Winsock1.SendData S13
Winsock1.SendData S14
Winsock1.SendData S15
Winsock1.SendData S16
Winsock1.SendData S17
Winsock1.SendData S18
Winsock1.SendData S19
Winsock1.SendData S20
Winsock1.SendData S21
Winsock1.SendData S22
Exit Sub

DoWith:
MsgBox "警告！?Ψ皆缭谙逻_?束指令前就已?嗑?", vbCritical

End Sub


有?法把程式??短?

lights

用数组，别玩我了，每本书都有！

jywg

不白明...

jywg

lights,
你????逊獍?獯a呢??我懂得了如何?魉头獍??..可以不懂如何把封包解?...