热血江湖真一键端.2.0版本，内置自动打怪，网站后台。

wjl53121

谢谢分享

ycg88nn

谢谢分享

ww86206906

感谢分享

chianpan

谢谢分享 非常感谢

chianpan

zhugui8008 发表于 2025-7-21 11:12
https://pan.baidu.com/s/18dvG2bemTikiVgSTZSMu9g?pwd=ny3k

感谢转度娘

woailuo7788

这个端有个最大的问题就是怪物数量实在太少，不太会修改，刀根本群不起来，然后就是强化石不能叠加，契约书不能用，召唤出小老虎会被当成怪，掉落物品的话有灵兽的东西不过可以设置不捡，GM功能有点蛋疼。。。优点就是有九泉，精英怪，现在大部分私服都没有。然后是任务端，可以做做任务。其他暂时不知道。应该是比较老的端改的，现在的端比这个好很多，起码怪多刷的爽。总而言之就是不需要架设，随便玩一下，不适合深度玩吧。。。

帆夏

woailuo7788 发表于 2025-7-21 21:53
这个端有个最大的问题就是怪物数量实在太少，不太会修改，刀根本群不起来，然后就是强化石不能叠加，契约书 ...

那推荐个现在比较完善一点的端吧老哥

rf311

谢谢分享 非常感谢  请问石头能叠加吗

justunjugo

谢谢分享

我的最爱666

https://pan.baidu.com/s/18dvG2bemTikiVgSTZSMu9g?pwd=ny3k

pxawy

感谢分享

jy02403989

感谢大佬···大佬666

xxxRXxxx

解压出现错误？

ddrr11

进不去南明湖

r2339100

嘻嘻嘻嘻嘻嘻

4050a

搞基党∽小小攻 发表于 2025-7-21 14:09
联机怎么改

1. Private Sub Form_Load() '42B3B8
   
2.   'Data Table: 4037AC
   
3.   Dim var_88 As Long
   
4.   Dim var_90 As CommandButton
   
5.   Dim var_E4 As Winsock
   
6.   Dim Form_Load1 As Variant
   
7.   Dim var_DC As Long
   
8.   Dim var_D2 As Integer
   
9.   loc_42AF78: On Error Goto loc_42B3A6
   
10.   loc_42AF81: var_88 = global_52
    
11.   loc_42AF8A: Call {D9B08A55-CA77-43DA-80A98019393F8432}.Method_arg_58 (var_8C)
    
12.   loc_42AF92: var_88(4) = var_8C
    
13.   loc_42AF9D: Call {D9B08A55-CA77-43DA-80A98019393F8432}.Method_arg_160 (var_90)
    
14.   loc_42AFA5: Call {B5AA25C4-D8EA-4C51-84D30CFEFF2BACA9}.DispID_FFFFFF60
    
15.   loc_42AFAE: var_88(8) = CLng(var_88)
    
16.   loc_42AFBE: var_88(12) = 7
    
17.   loc_42AFC8: var_88(16) = &H200
    
18.   loc_42AFD3: Call {D9B08A55-CA77-43DA-80A98019393F8432}.Method_arg_160 (var_90)
    
19.   loc_42AFDB: Call {B5AA25C4-D8EA-4C51-84D30CFEFF2BACA9}.DispID_FFFFFF60
    
20.   loc_42AFE4: var_88(20) = CLng()
    
21.   loc_42AFFB: var_90 = Me.var_90.App
    
22.   loc_42B017: var_88(24) = App.Title & vbNullString
    
23.   loc_42B029: var_88(0) = &H28
    
24.   loc_42B033: var_88 = 0
    
25.   loc_42B03F: var_D0 = Record Of arg_60 'Copy battery of vars to single variable
    
26.   loc_42B04A: Shell_NotifyIcon(0, var_D0)
    
27.   loc_42B059: global_52 = arg_60
    
28.   loc_42B063: For var_E0 = 1 To &H14: var_D2 = var_E0 'Integer
    
29.   loc_42B073:   Set var_90 = Me.Web
    
30.   loc_42B079:   Call 0.Method_Form_Load0 (var_D2, var_E4, 1)
    
31.   loc_42B08A:   Me.Web.Load var_E4
    
32.   loc_42B0A0:   Set var_90 = Me.sok
    
33.   loc_42B0A6:   Call 0.Method_Form_Load0 (var_D2, var_E4, var_D0)
    
34.   loc_42B0B7:   Me.sok.Load var_E4
    
35.   loc_42B0C6: Next var_E0 'Integer
    
36.   loc_42B0D1: Proc_6_0_418B58(var_A0)
    
37.   loc_42B0E9: Set var_90 = Me.Web
    
38.   loc_42B0EF: Call 0.Method_Form_Load0 (0, var_E4)
    
39.   loc_42B0F7: var_E4.LocalPort = CVar(CLng(var_A0))
    
40.   loc_42B10F: Set var_90 = Me.Web
    
41.   loc_42B115: Call 0.Method_Form_Load0 (0, var_E4)
    
42.   loc_42B11D: Form_Load1 = var_E4._RemoteHost
    
43.   loc_42B132: Proc_6_0_418B58(var_A0, "游戏端口")
    
44.   loc_42B14A: Set var_90 = Me.sok
    
45.   loc_42B150: Call 0.Method_Form_Load0 (0, var_E4, CVar(CLng(var_A0)))
    
46.   loc_42B158: var_E4.LocalPort = Form_Load1
    
47.   loc_42B170: Set var_90 = Me.sok
    
48.   loc_42B176: Call 0.Method_Form_Load0 (0, var_E4)
    
49.   loc_42B17E: Form_Load1 = var_E4._RemoteHost
    
50.   loc_42B19C: var_A0 = "127.0.0.1"
    
51.   loc_42B1B7: var_D8 = StrConv(var_A0, &H80, 0)
    
52.   loc_42B1C6: Proc_6_0_418B58(var_A0, "游戏端口")
    
53.   loc_42B1D0: var_DC = CLng(var_A0)
    
54.   loc_42B1E4: var_D2 = CInt((UBound(var_D8, 1) + &H10))
    
55.   loc_42B1F9: ReDim arg_1
    
56.   loc_42B212: global_116(0) = CByte(&H64)
    
57.   loc_42B224: global_116(1) = CByte(128)
    
58.   loc_42B236: global_116(2) = CByte(var_D2)
    
59.   loc_42B252: global_116(4) = CByte((UBound(var_D8, 1) + 1))
    
60.   loc_42B27D: CopyMemory(global_116(6), var_D8(0), CLng(global_116(4)))
    
61.   loc_42B2AE: CopyMemory(global_116(CLng((CInt(global_116(4)) + 6))), var_DC, 2)
    
62.   loc_42B2C6: var_A0 = "热血江湖"
    
63.   loc_42B307: global_116(CLng((CInt(global_116(4)) + 8))) = CByte(8)
    
64.   loc_42B337: CopyMemory(global_116(CLng((CInt(global_116(4)) + &HA))), StrConv(var_A0, &H80, 0)(0), 8)
    
65.   loc_42B349: Call {D9B08A55-CA77-43DA-80A98019393F8432}.Method_arg_58 (var_8C, global_116, CLng((var_D2 + 2)), 0)
    
66.   loc_42B35E: SetTimer(var_8C, 1, &H3E8, MemVar_4027A4)
    
67.   loc_42B36D: Proc_0_0_40F988("游戏服务已启动，可以进游戏了。", var_D2, var_DC)
    
68.   loc_42B37B: Proc_6_0_418B58(var_A0, "服务器ID")
    
69.   loc_42B38E: If (var_A0 > 0) Then
    
70.   loc_42B39D:   Me.Cmd.Enabled = True
    
71.   loc_42B3A5: End If
    
72.   loc_42B3A5: Exit Sub
    
73.   loc_42B3A6: ' Referenced from: 42AF78
    
74.   loc_42B3AF: Proc_0_0_40F988("端口占用", Form_Load1)
    
75.   loc_42B3B7: Exit Sub
    
76. End Sub

复制代码

你想多了.我反编译了一下.关键代码登录封包的IP是127.0.0.1只能单机.不过我还是有办法搞成联机的
自己写个LS就能了

搞基党∽小小攻

4050a 发表于 2025-7-23 08:57
你想多了.我反编译了一下.关键代码登录封包的IP是127.0.0.1只能单机.不过我还是有办法搞成联机的
自 ...

已经删了   单机的没意思   最少得要个局域网才能玩

laorenjia234

谢谢分享

madlw

感谢分享，能上个夸克盘吗

512687318

为啥我进不去游戏啊 登录账号 就显示 正在连接请稍后。系统程序进行需要一定时间。 就一直这样了