发新话题
打印

[魔力私服分享] 教大家如何利用VB做魔力登录器

教大家如何利用VB做魔力登录器


+ I( ^- G& v1 h9 k/ }妖城在线论坛上边就是登录器做好的样子了。
7 z- t1 I9 S4 ]1 a妖城在线论坛下边给大家送上源码,很简单的,有部分参考别人的源码。呵呵。
1 {( n5 d0 E+ D9 ?妖城在线论坛主窗口的源码:bbs.mocwww.com. L4 [; ~* a+ I# W
Private Sub Command1_Click()魔力私服,最新魔力宝贝私服技术交流( Y7 l6 X# t7 X5 o2 s- ^9 ]- G
Shell "explorer" & " " & "http://www.baidu.com"
/ i. _' O0 m' c; |6 N* x& Q  z妖城在线论坛—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート* p  K: J* W- l/ g/ G
End Sub
0 L0 R; a5 |. E5 g8 k魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表. C+ k) Y, J! x0 U; Y# E
Private Sub Command2_Click()
6 R. B! F% N( J" P* n3 Bbbs.mocwww.comShell "explorer" & " " & "http://www.baidu.com"
) O; x- H) j& F8 X6 \8 K! Qbbs.mocwww.comEnd Sub魔力私服,最新魔力宝贝私服技术交流2 i. e$ ^3 t8 S+ h' V# ~2 j

$ [9 J" f+ h0 k* }, H魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表Private Sub Command3_Click()—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート) Q$ y, ^% _9 d! E7 c. I3 O3 b- s2 N- A
Shell "explorer" & " " & "http://www.baidu.com"魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表8 x# m4 l* O" e. U
End Sub魔力私服,最新魔力宝贝私服技术交流$ h2 h4 A9 h: `; U4 |4 b5 @; R# o

! K; P" @4 p  m1 X, ]- Bbbs.mocwww.comPrivate Sub Command4_Click()
# q1 \# Y; I/ S7 ^6 ]) {) `* y$ wForm1.WindowState = 12 n# i1 t; Q; F- o$ V. t  Z+ a
Dim cgtext$, vd As String
4 S; K  p+ V- \* P( [8 _bbs.mocwww.comConst ms As String = " windowmode"魔力私服,最新魔力宝贝私服技术交流7 e9 V  V' h9 H5 x

# c  W4 C' W' a9 S% l# {魔力私服,最新魔力宝贝私服技术交流If Option1.Value = True Then
$ u1 p+ G: R4 q妖城在线论坛vd = " 3Ddevice:4"魔力私服,最新魔力宝贝私服技术交流5 ^+ B2 E6 B* g6 G8 y" H
ElseIf Option2.Value = True Then
. V; }0 A; C0 O. R9 qbbs.mocwww.comvd = " 3Ddevice:3", H% ~2 P1 c! V  a$ W
ElseIf Option3.Value = True Then魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表$ z: j: O1 ?$ |& D; M* V" X( M2 D
vd = " 3Ddevice:2"bbs.mocwww.com: n4 {: b$ G+ a
ElseIf Option4.Value = True Then妖城在线论坛- y# T$ N  X. J" J7 d4 x" z
vd = " 3Ddevice:1"魔力私服,最新魔力宝贝私服技术交流$ X- n+ d7 ?( w
End Ifbbs.mocwww.com" `$ d3 O- ~& K) u" \6 I
cgtext$ = File & " updated " & data & "bin:32 graphicinfobin:32 animebin:7 animeinfobin:7 graphicbinv2:6 graphicinfobinv2:6 animebinv2:1 animeinfobinv2:1 graphicbinv3:22 graphicinfobinv3:22 animebinv3:11 animeinfobinv3:11 graphicbin_puk2:2 graphicinfobin_puk2:2 animebin_puk2:3 animeinfobin_puk2:3 graphicbin_puk3:1 graphicinfobin_puk3:1 animebin_puk3:2 animeinfobin_puk3:2 coordinatebinv3:2 coordinateinfobinv3:2 graphicbin_kw:1 graphicinfobin_kw:1"
4 ~9 e% e" ^1 s2 }6 [—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲートcgtext$ = cgtext$ & " IP:0:" & Host & ":" & Port & vd & " onlyactive:1" & " soundoff:1" & " musicoff:1"魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表: F9 J3 `. ]3 G8 S: z/ B% m; t

3 e6 g, V3 [; J* _1 m4 n8 c2 z魔力私服,最新魔力宝贝私服技术交流If Option5.Value = True Then妖城在线论坛3 \; u+ P5 m2 w! L
Shell cgtext$ & ms, vbNormalFocus妖城在线论坛: L. m' z0 @8 f9 T
ElseIf Option6.Value = True Then
  q; e7 e3 m6 r3 k" P3 a妖城在线论坛Shell cgtext$, vbNormalFocus妖城在线论坛/ k% k; ], {" h  o: p( P4 Q( C
End If魔力私服,最新魔力宝贝私服技术交流. \0 L/ y: n4 C# G; I. _$ ^% X- H( a

( j* I- A1 c2 b* n% g9 C魔力私服,最新魔力宝贝私服技术交流End Sub妖城在线论坛9 s$ \$ u& c% y' T

( U$ h( w8 K0 B6 S# SPrivate Sub Form_Load()妖城在线论坛; \* `' }" @( H" ?7 Z: D
App.TaskVisible = False '不在任务管理器中显示
8 ]+ z6 Q( a+ o% A) s5 @—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲートHideCurrentProcess '进程隐藏
7 C& t# G! `* S* D5 g0 Bbbs.mocwww.comSkin1.ApplySkin Me.hWnd
9 Y, N7 L: r! P魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表WebBrowser1.Navigate ("http://www.baidu.com")魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表( L' t# _' M' T+ ]7 f9 U
Option4.Value = True
! N- P1 |2 `: A3 l7 l9 lOption5.Value = True  {6 p( W& }% l% [1 i* {& z

% k# I' P8 [0 X4 w: _. M5 q+ ^9 dbbs.mocwww.com
; S( M! L9 O4 hbbs.mocwww.comEnd Sub
) Y4 v+ R0 c. Z, N, M- Mbbs.mocwww.com魔力私服,最新魔力宝贝私服技术交流% P/ k2 t2 I2 L' V9 Y4 C3 ^2 A

' M& {; s/ |& A模块里的源码:魔力私服,最新魔力宝贝私服技术交流& d& R: q0 H5 e$ o  S/ }- w" m6 X
Option Explicit; q8 n9 S# u$ I9 v; e. S

+ e* ^# F# V7 A( O魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表Public Const File As String = "king.exe"
9 L: n& E- z" k: d% _: A9 H" \Public Const Host As String = "jpml.meibu.com"妖城在线论坛9 a) i: h+ Z" T1 X: y0 o- m5 e7 \
Public Const Port As String = "9030"
7 X3 q. u1 N+ i; Kbbs.mocwww.comPublic Const data As String = "graphic"
* N* d2 B0 j7 m' o$ Z% u& {bbs.mocwww.com5 Z; {9 h& {/ b7 W* V' X$ k, S
本想细细的介绍一下的,凌晨三点了,就不多说了。大家照着改一个就可以了。

TOP

支持一下
1 Q3 _6 s- `; V抢个沙发,顺便
即不回头,何必不忘
既然无缘,何需誓言
今日种种,似水无痕
明夕何夕,君已陌路

TOP

我也抢个位

TOP

依带现在又开始关注魔力了?

TOP

路过,顺便顶下

TOP

先顶 晚一点看ˇ
1 g3 Z# Q# s" x8 w: O" ]8 L魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表初次动手用vb 记得第一次接触好像是国小...?

TOP

VB是什麼?? 可以說全名嗎? 小弟是新手
* q6 L# y1 ~# S魔力私服,最新魔力宝贝私服技术交流
) Z9 |( K; V5 B! N魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表希望高手們教一下

TOP

好用的東西 !! 幫頂一下

TOP

引用:
原帖由 全熟牛排溅血 于 2009-8-17 00:43 发表
, c3 y/ u3 B! x3 A4 o/ ?Visual Basic
9 D6 X2 b9 y! {- n7 _8 b妖城在线论坛笨得可以.
' t. }4 B9 p0 N1 q, J7 \& X魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表
. P3 b% l) i3 R& A妖城在线论坛感謝高手指教 小弟真的有夠笨喔 !!

TOP

发新话题