CarNa遊戲啟動器改製

雪楓月舞 · 發表於 2016-11-28 00:48:21

本帖最後由雪楓月舞於 2016-11-28 01:57 編輯

【檔案名稱】：CarNa遊戲啟動器【檔案格式】：exe
【檔案大小】：1.13 MB
【檔案載點】：>>點此<<
【掃毒報告】：>>點此<<
【檔案資訊】：原作:小夏改製:雪楓月舞
【備註】：有任何問題歡迎在下方留言^^
【檔案內容】：

【原始碼】：

Public Class Form1, n- y9 C' C1 ]/ W% H8 Y, L/ {
Dim IP As String = "******************" '為保護伺服器不被有心人士 DDOS 不公開 IP; ]$ D1 v. J/ @" a; X
Dim Port As String = "****" '為保護伺服器不被有心人士 DDOS 不公開 Port( _$ e+ X: O8 f ]% l# u) |
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
/ W# y! E- z! c% J( i0 p
Call Reset()
& C9 v7 z5 U7 j% j3 ^2 f. k
End Sub# s! n# p: }, ^( ]' `( T& S7 U) A
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click% \( X: W4 u# g, O8 `# B6 d+ O
If My.Computer.FileSystem.FileExists("localhost.exe") Then
/ O$ U% Z& d: \, `" ?3 Z( K! u& |! ?
Shell("cmd.exe /c " & "Start localhost " & IP & " " & Port, vbHide)% P9 S$ I3 X% T# q {
Else
7 L, S* L% C6 u8 m6 a g, i2 q
MessageBox.Show("無法偵測到 localhost.exe" & vbNewLine & "請關閉防毒並將資料夾排除後解壓縮 localhost.rar", "錯誤", MessageBoxButtons.OK, MessageBoxIcon.Error)$ R j; w" H+ ^! T6 o5 n8 Z. X0 E
End If0 L y+ R7 F/ [6 h
End Sub
3 L2 o' ~/ R J( p y) b
/ \" k$ [) j$ H! g+ Q
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
9 d" E) w- r$ Q6 s% e) S! [" I
Button1.Visible = False2 Y$ E& Y4 T5 t
Button2.Visible = False$ C* b# z5 x8 U/ l. O( Z3 b
Button3.Visible = False% F/ s$ l: R7 ~' s7 B
Button4.Visible = False* M" D+ u6 v- Y, Y
Button5.Visible = False
+ d# D: t. J: l# N4 Z( J, Q* [% v
Button6.Visible = False& q6 s$ v& @4 X7 m
Button7.Visible = False F# x5 h, R" Y: ]% F$ y
Label1.Visible = True5 B% }" S2 l e2 m- F1 ?
Button8.Visible = True$ P6 J/ i" m0 H$ G
End Sub. D& Y' P& X0 e1 n+ Y; |) D( ^
# q6 W$ r3 x$ X- f" @4 U
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
! d8 |* ~& y% v
'帳號註冊1 w5 z5 P, {# h% d7 X. m$ K$ }
Shell("Rundll32.exe url.dll, FileProtocolHandler https://docs.google.com/forms/d/e/1FAIpQLSfpphD3cDtFCiayoOidc1TE0GLHL6TquEsempTlMRQYN5hZ4g/viewform", vbNormalFocus)
2 G1 T/ t4 f: c0 M6 Z4 w* n+ i# _9 }
End Sub4 A$ ]! \4 `$ J3 N$ M
0 F: J* Q/ [* w1 r( [
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click, B3 i8 ~% O% k
'遊戲下載0 d5 F, q: c3 H2 T& J
Shell("Rundll32.exe url.dll, FileProtocolHandler https://docs.google.com/uc?id=0B_JKhdsxGLKRSE42TXJQbDRicWs&export=download", vbNormalFocus)
! O5 ~- i" G1 _! n* r2 Q
& ^/ |1 ]' ?1 ?& B4 `# ?. }/ N
End Sub) h6 |$ t: Q6 y4 m4 N' W
0 b# E4 q) T$ F* D: Q1 @
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click+ \/ x& J( g5 x2 {# G
'論壇
. V$ i4 t5 D5 i6 C& S6 Y
Shell("Rundll32.exe url.dll, FileProtocolHandler http://twaicl.joinbbs.net/index.php", vbNormalFocus)
% C, b% @4 O5 Z4 I1 E
End Sub+ g0 Z& j/ A' M% t. O$ ^
/ j& m- E0 l% V$ }. G3 K
Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click( A5 d1 r& P/ D4 |- S6 J/ d$ C
'宣傳影片- d1 G8 I5 X9 z6 m
Shell("Rundll32.exe url.dll, FileProtocolHandler https://www.youtube.com/watch?v=K_bciqPTBWg", vbNormalFocus)
* R. @" L' P7 G) R7 n2 \: f2 Z
End Sub
( ?7 `( F" W/ h& o _7 d
& @# _+ w/ m0 E) V( B/ f& _9 R. C
Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
( O. D* K3 F/ \; I
End '結束程式9 b: Y i) F1 X; Y. q, @% I, u
End Sub5 m, j5 Y- v& y2 o
; k9 ?8 Y4 Y: e! w) ~* x" n2 \6 c$ G
Sub Reset()
8 Z( b% u; N ~. N0 e
Button1.Left = (Width - Button1.Width) / 2 - 10
, w/ _8 I& M- [4 F& u; p9 [
Button2.Left = (Width - Button2.Width) / 2 - 10
1 C& x5 b: _& V
Button3.Left = (Width - Button3.Width) / 2 - 10: m J; M- v( k4 C: z
Button4.Left = (Width - Button4.Width) / 2 - 10+ T5 @ e3 V- k+ w8 W# B
Button5.Left = (Width - Button5.Width) / 2 - 10
& F( i1 `$ R4 u8 C# [' T# D
Button6.Left = (Width - Button6.Width) / 2 - 104 t# ~% v/ R" o" x. H, Z
Button7.Left = (Width - Button7.Width) / 2 - 10
1 f; v, R; h8 M. l" d- D
Button8.Left = (Width - Button8.Width) / 2 - 10
& ~7 F( C4 `3 X8 s
Button1.Visible = True
- h; e% |: l- e, j" N. i6 E
Button2.Visible = True
! G$ u' |3 c2 M5 c* m* i
Button3.Visible = True
# V; N- V) v" h7 _: Z" q" _
Button4.Visible = True$ B' d) I+ ? f' Z* C
Button5.Visible = True( v/ H# R; ?5 {9 e/ y
Button6.Visible = True) R0 J4 v* r( T) t1 n6 `
Button7.Visible = True
) k6 ]- P: @0 V& _: g' d; t. [
Label1.Visible = False
5 k, H) G+ P: |" I
Button8.Visible = False2 g. x0 v; A. W: v! s
End Sub
; b k% K! m2 x
Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click% j- i& m8 g0 F4 x+ Q% {
Call Reset()- e& v* c/ t0 u1 g( w
End Sub
9 h/ D9 {( v& ^5 y k) @
End Class
5 ^& _7 |. y8 g" D