CarNa遊戲啟動器改製

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

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

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

【原始碼】：

Public Class Form1
2 O4 m7 p! O1 x, ^
Dim IP As String = "******************" '為保護伺服器不被有心人士 DDOS 不公開 IP
9 F$ M8 q, \$ x
Dim Port As String = "****" '為保護伺服器不被有心人士 DDOS 不公開 Port
8 ~/ w. B; ]9 O) Y( C
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
0 `4 D K1 N; f; y7 g
Call Reset()# u4 |+ o8 [- R; Y: V
End Sub
/ ?) h# R- w+ R y
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
& t& s/ v1 H, W5 _: i
If My.Computer.FileSystem.FileExists("localhost.exe") Then
# p5 q; V1 O: ?/ _
Shell("cmd.exe /c " & "Start localhost " & IP & " " & Port, vbHide)* r+ |# ?2 D9 l& M; v, L) L, }! ~
Else
# q1 K$ U2 G( o4 ~2 P# t) E
MessageBox.Show("無法偵測到 localhost.exe" & vbNewLine & "請關閉防毒並將資料夾排除後解壓縮 localhost.rar", "錯誤", MessageBoxButtons.OK, MessageBoxIcon.Error)
( Q9 g2 U" L2 z- A
End If8 r3 V O1 m# y7 i3 j
End Sub, e% W2 { n! g ?* g3 Z4 Y0 P8 n
9 d8 J( Q( r: B, q; m- F. d- a: L
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click& v2 z+ ~3 K9 G# l7 [" p# R
Button1.Visible = False
, o- Z6 h! L/ a0 N4 H. \( f7 f
Button2.Visible = False
: k) s z3 U/ c) d
Button3.Visible = False
/ O/ J: N; `9 U3 i
Button4.Visible = False1 q3 Q* i) N# [- i
Button5.Visible = False+ \7 x: Z2 N+ L3 c$ h) s/ M
Button6.Visible = False1 i* F$ F5 t! i- c( P
Button7.Visible = False
0 X1 E, d7 i) E) B
Label1.Visible = True
; n- p6 e5 T9 n/ G
Button8.Visible = True, z5 |! U5 ]+ d( V5 w2 w
End Sub
9 ^ y5 v8 r: x: H" F
/ _% v7 Y4 m' x9 h0 |0 U' @
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
5 ?& D' n" F% Y' M
'帳號註冊
' F. q+ p* b! K5 w- b
Shell("Rundll32.exe url.dll, FileProtocolHandler https://docs.google.com/forms/d/e/1FAIpQLSfpphD3cDtFCiayoOidc1TE0GLHL6TquEsempTlMRQYN5hZ4g/viewform", vbNormalFocus)
d, Y% a/ m: U( v" ^& M
End Sub8 D$ \7 `5 |) i, e- V
3 N6 T7 l/ |9 h" `, E6 O% n1 o
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
# u. C' M0 ~* Y+ i4 ]
'遊戲下載* O4 a6 F2 N5 Q u; q9 h
Shell("Rundll32.exe url.dll, FileProtocolHandler https://docs.google.com/uc?id=0B_JKhdsxGLKRSE42TXJQbDRicWs&export=download", vbNormalFocus)
5 W- U6 Y, w2 |/ U
, j* L8 ]) P$ l6 c5 N
End Sub) o$ k* t- N8 x
. J8 h* s2 \9 d; v4 [; P: D/ ^
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click* f' _( o/ y1 E5 T! u
'論壇, V. G' _6 L, D3 p
Shell("Rundll32.exe url.dll, FileProtocolHandler http://twaicl.joinbbs.net/index.php", vbNormalFocus)* Z3 _$ i' k! r: \& l
End Sub/ ]" O+ k9 G( H8 D# H
6 n: m& S/ m, U3 y+ K( a% H
Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
! ?8 m9 n3 P* `. a `4 M! O& P$ `
'宣傳影片* c9 N8 L0 C7 a
Shell("Rundll32.exe url.dll, FileProtocolHandler https://www.youtube.com/watch?v=K_bciqPTBWg", vbNormalFocus)
/ f* g# v& S: q% t: V$ }1 a/ L
End Sub
* r5 v ]. ?3 j0 U
+ ]! p% Q3 o( ]; h
Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click2 c) G2 o( T( ?
End '結束程式
3 ?4 ], O; }, l
End Sub8 C- k: w1 ^8 j2 p
9 z! ~/ u% u! B- k* d! Q$ s
Sub Reset()
5 q) S& f- a% `/ Y
Button1.Left = (Width - Button1.Width) / 2 - 10
9 d6 K4 k8 b* Y T5 ^
Button2.Left = (Width - Button2.Width) / 2 - 10
$ v: c6 {8 l1 h% Z6 N( C2 C
Button3.Left = (Width - Button3.Width) / 2 - 10
7 ^, }! [& ?+ n; X8 j5 V5 ~, g" C
Button4.Left = (Width - Button4.Width) / 2 - 10/ P; M- B8 m ]3 @3 }
Button5.Left = (Width - Button5.Width) / 2 - 10
) U O- `. ~' \* z w+ Z
Button6.Left = (Width - Button6.Width) / 2 - 10 ~7 L* a( b' \& J/ ^. X
Button7.Left = (Width - Button7.Width) / 2 - 102 l* E6 ]1 T1 C. o
Button8.Left = (Width - Button8.Width) / 2 - 10
! [7 J$ E, j8 f7 K0 e0 b7 {7 ]& R- w9 G
Button1.Visible = True
! J3 k6 P* |1 G! K" @
Button2.Visible = True" ?/ H* B: R( O
Button3.Visible = True0 C. _; e! s% u, |# s
Button4.Visible = True" Z s$ p! H U1 M# T+ o
Button5.Visible = True
. E% T6 V, h, r" e: O9 B" g
Button6.Visible = True
/ n5 v9 ^# c/ `9 } r
Button7.Visible = True
( g+ A! N3 H7 ?, M! s( p# w
Label1.Visible = False
3 N$ b' X( L9 Z7 P+ t# j6 S. y
Button8.Visible = False
+ S8 G1 u) \! l7 j: |) X
End Sub, E# ]) X. b; w# k2 c, @6 I
% b* t6 M; w- q$ J, I e0 I. V
Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click: r) K$ o& L: N
Call Reset()( Y. u/ Y7 k2 c4 Z3 y0 H
End Sub
4 T0 A& V+ x% |
End Class
1 G: C3 [# Q) K6 S/ k( n( R