|
|
|
[求助]获得了游戏socket的句柄 怎样修改并封包
应该是等于啊 我用 od 查到 套接字句柄 换上套接字句柄也不行 SocketHandle 属性 返回一个与套接字句柄对应的值,控件用套接字句柄同 Winsock 层通信。在设计时是只读的,而且是不可用的。 语法 object.SocketHandle object 所在处代表一个对象表达式,其值是“应用于”列表中的对象。 数据类型 Long 说明 这个属性是为了传递到 Winsock APIs 而设计的。 |
|
[求助]获得了游戏socket的句柄 怎样修改并封包
谁来看看 顶 !! |
|
[求助]获得了游戏socket的句柄 怎样修改并封包
我做了个 vb 小程序 来说明我的意思 在这个程序中 我用 winsock 控件能发送字符串 但是 如果用 send 这个 api 使用上 winsock 控件 的句柄 就发送不成功 http://ys-f.ys168.com/?winsock.rar_4s7bs0b9e0e2bs7bs0btr7bt4bsp0cl1bsln1b5bt4bsplmhu14z97f14z 谁来帮我看看这是为什么 Option Explicit Private Declare Function Send Lib "wsock32.dll" Alias "send" (ByVal s As Long, buf As Any, ByVal buflen As Long, ByVal flags As Long) As Long Private Declare Function GetApiEntry Lib "dll.dll" (Modelname As Long, Apiname As Long) As Long Private Declare Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA" (ByVal lpLibFileName As String) As Long Private Sub Command1_Click() Dim l As Long l = GetApiEntry(ByVal VarPtr("Ws2_32.DLL"), ByVal VarPtr("SEND")) Debug.Print l End Sub Private Sub Command4_Click() Dim s As Long Dim l As Long Dim TheMsg() As Byte TheMsg = "hook api ·¢ËÍ" l = UBound(TheMsg) - LBound(TheMsg) + 1 s = Val("&H" & Trim(Text3.Text) & "&") MsgBox "hook send ·¢ËÍ" Call Send(s, TheMsg(0), l, 0) '×îºóÒ»¸ö²ÎÊý¾ö¶¨ÊÇ·ñÇå¿Õ »º³åÇø End Sub Private Sub Form_Load() Winsock3.Close Winsock3.LocalPort = 3001 Winsock3.Listen DoEvents Winsock1.RemoteHost = "127.0.0.1" Winsock1.RemotePort = 3001 Winsock1.Close Winsock1.Connect LoadLibrary "dll.dll" End Sub Private Sub Command2_Click() MsgBox "winsock ·¢ËÍ" Form1.Winsock2.SendData Form1.Text1.Text & "xxÄ£¿éºÅ" End Sub Private Sub Winsock1_Connect() Text1.Text = "Á¬½Ó³É¹¦" End Sub Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) Dim s As String Winsock1.GetData s Text2.Text = Text2.Text & "w2·¢À´:" & s & vbCrLf End Sub Private Sub Winsock3_ConnectionRequest(ByVal requestID As Long) Winsock2.Close Winsock2.Accept requestID Text3.Text = Hex(Winsock2.SocketHandle) End Sub |
|
[求助]获得了游戏socket的句柄 怎样修改并封包
谁来看看 顶 !! |
|
[求助]QQ斗地主记牌器外挂数据内存地址分析查找过程
再顶----- |
|
|
操作理由
RANk
{{ user_info.golds == '' ? 0 : user_info.golds }}
雪币
{{ experience }}
课程经验
{{ score }}
学习收益
{{study_duration_fmt}}
学习时长
基本信息
荣誉称号:
{{ honorary_title }}
能力排名:
No.{{ rank_num }}
等 级:
LV{{ rank_lv-100 }}
活跃值:
在线值:
浏览人数:{{ visits }}
最近活跃:{{ last_active_time }}
注册时间:{{ user_info.create_date_jsonfmt }}
勋章
兑换勋章
证书
证书查询 >
能力值