CarNa遊戲啟動器改製

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

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

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

【原始碼】：

Public Class Form1& Q& P: A; {" p( u3 l( D% ^# O
Dim IP As String = "******************" '為保護伺服器不被有心人士 DDOS 不公開 IP
3 i1 h5 |' y9 g" u7 D. E. N
Dim Port As String = "****" '為保護伺服器不被有心人士 DDOS 不公開 Port
: ~" m4 _! S e1 e( A5 [. }
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load) r* a4 ^1 B1 G; o( B9 w
Call Reset()
. d7 A0 K7 y+ U7 i- e
End Sub) C% d6 O* y3 s: I- J5 v) f
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
1 E: m4 o/ v. m" p4 E
If My.Computer.FileSystem.FileExists("localhost.exe") Then
$ B. j. O) F! a3 h' W1 b
Shell("cmd.exe /c " & "Start localhost " & IP & " " & Port, vbHide)0 V) F0 [% [1 \" V
Else4 r- B; k& y$ W$ X: ~& d
MessageBox.Show("無法偵測到 localhost.exe" & vbNewLine & "請關閉防毒並將資料夾排除後解壓縮 localhost.rar", "錯誤", MessageBoxButtons.OK, MessageBoxIcon.Error)
' W( l: s D, p9 l: n/ ~; a
End If
7 C" f, R2 j w
End Sub
' f; ?+ n. R( A4 W0 F I8 l# G% c* W
( g4 `3 j3 l+ H Q3 z. Y
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
) S" _7 J R0 N' [8 X, C; a) G! W- N
Button1.Visible = False2 D; K8 {9 H- c5 w5 Q2 v# t
Button2.Visible = False
8 {6 W8 \6 V6 d6 |! Z
Button3.Visible = False) U2 N* o7 ^! Z& y7 V9 c
Button4.Visible = False
9 o1 E! _" D& U; q/ ?( K" h
Button5.Visible = False, N, [) h5 z8 @1 T' L: C0 N- Q, e
Button6.Visible = False7 A. ?9 A& d( C3 I {
Button7.Visible = False% Z5 n; M/ Q' g# Z& s2 m
Label1.Visible = True
: s1 T. F; A, v
Button8.Visible = True
) k! d- }2 \* [+ e" K
End Sub- k: H- s& t: E- O0 V# @
4 m. W9 ?0 J1 Y5 f8 R* I
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
( q9 y" N5 X: `4 M2 ?' z, a3 U" @' Q
'帳號註冊5 H+ K d) L7 [
Shell("Rundll32.exe url.dll, FileProtocolHandler https://docs.google.com/forms/d/e/1FAIpQLSfpphD3cDtFCiayoOidc1TE0GLHL6TquEsempTlMRQYN5hZ4g/viewform", vbNormalFocus)
- q3 W1 I8 d+ K: |
End Sub
/ c" E5 K9 Y: V: |
, J& ]% i$ m( l6 K3 {% G# a
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
6 D* ?4 W3 x# j; Z1 n. f( F
'遊戲下載
8 K+ O* L- {8 e6 ?, x
Shell("Rundll32.exe url.dll, FileProtocolHandler https://docs.google.com/uc?id=0B_JKhdsxGLKRSE42TXJQbDRicWs&export=download", vbNormalFocus)
" _4 U. w9 T# S# n# M; v
% o. F1 [, p" Y& T! K5 O5 Y
End Sub
3 P' x" P4 X# u& q, ]
0 [" ]3 k! i" r/ q
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click# h' l" y d# C# S% B8 J+ _
'論壇
# G8 H; @% [; H7 H
Shell("Rundll32.exe url.dll, FileProtocolHandler http://twaicl.joinbbs.net/index.php", vbNormalFocus); l& W- X k: i
End Sub
9 I* x% C" m" z9 T, J5 }
# ~$ ]3 }* c! G2 \5 g6 A# ~ D6 K
Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click4 w; @5 l, h& c( q3 N/ l, }
'宣傳影片
8 F h" Y( P: [8 k& T1 b
Shell("Rundll32.exe url.dll, FileProtocolHandler https://www.youtube.com/watch?v=K_bciqPTBWg", vbNormalFocus)
; [5 H% Y7 y' ?9 S* `# }) x- m
End Sub# _- L8 h W; l/ e/ ]1 {( J3 E
$ I8 o( Q9 u9 }; B0 _9 z% K
Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click# j5 F6 H0 ]( q8 M- M
End '結束程式 C/ k8 k7 |0 {0 r! X: w
End Sub" i- @. U7 _2 p
6 `0 T# l, ~0 `
Sub Reset()' L7 d6 a: L+ M+ W& Z
Button1.Left = (Width - Button1.Width) / 2 - 10% _) W% |2 O5 R' t
Button2.Left = (Width - Button2.Width) / 2 - 105 P# |1 ?8 r/ {0 Z: |
Button3.Left = (Width - Button3.Width) / 2 - 105 i5 V; |: r; B6 C! P0 k' P* E
Button4.Left = (Width - Button4.Width) / 2 - 10& t/ j: M8 P$ K8 t- f6 I
Button5.Left = (Width - Button5.Width) / 2 - 10! j9 G, d/ t1 j% D" G' N4 c! S
Button6.Left = (Width - Button6.Width) / 2 - 108 j( `4 c! F2 i- {/ p! D6 {8 U+ M
Button7.Left = (Width - Button7.Width) / 2 - 10
) t" _- I/ {+ W" H& S4 L" q
Button8.Left = (Width - Button8.Width) / 2 - 10" K5 @4 O5 Y2 }
Button1.Visible = True
, W/ ]7 O/ t; m( U
Button2.Visible = True
9 ^ ~2 O! H1 v! l( C1 ~# s
Button3.Visible = True
0 \6 c' i7 l: y9 L9 V
Button4.Visible = True
1 F8 M. j6 a, ^6 H, I# q
Button5.Visible = True- S* `) M; f8 M
Button6.Visible = True, }0 _6 z/ P9 m1 K4 a5 \, X
Button7.Visible = True. q) U: M8 A# P m
Label1.Visible = False
2 a) R. f. b# N+ B7 ^. ]) {; ~
Button8.Visible = False
4 j Z& x: |7 m3 n- |, N4 T6 ]8 m
End Sub1 M5 @; P0 \) Z2 x5 f) ]/ R
% g* h+ E/ i8 h" x+ J; e8 z1 x
Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
) T! x3 W5 S" d% C7 B% ~! j6 w! V
Call Reset()# D+ b7 E* K" w# k6 U F
End Sub
: J) Y2 y q, b) z$ `+ n
End Class" K6 U. _6 k* O$ B- j8 V) E