CarNa遊戲啟動器改製

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

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

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

【原始碼】：

Public Class Form16 x4 N9 D2 L2 a
Dim IP As String = "******************" '為保護伺服器不被有心人士 DDOS 不公開 IP
( l, E _- A- v4 |
Dim Port As String = "****" '為保護伺服器不被有心人士 DDOS 不公開 Port
3 z9 ?3 v2 q- e5 t$ ^0 z7 Z+ G
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
4 n% P- m' U" q8 p6 h* `2 O
Call Reset()' K; S( D5 d+ u& a
End Sub+ P- s4 L2 q% F: s; J
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click! ~' g# Q' }' R/ \) n: ?
If My.Computer.FileSystem.FileExists("localhost.exe") Then; ~) a# M- [. I- R
Shell("cmd.exe /c " & "Start localhost " & IP & " " & Port, vbHide)
3 Z+ M) ~- c$ z! Y Y9 \
Else: d, C0 ^% a b6 [* N+ ]) ]/ V
MessageBox.Show("無法偵測到 localhost.exe" & vbNewLine & "請關閉防毒並將資料夾排除後解壓縮 localhost.rar", "錯誤", MessageBoxButtons.OK, MessageBoxIcon.Error)
( v( Q2 f) G- Z7 z9 s( e
End If
1 W" g& T# ?- R8 K' \* W
End Sub2 t: D3 ^! X. L5 N
" L7 ^$ ^& Y% x# n; J
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click, A( T6 C/ j) q
Button1.Visible = False
; M* N$ O- i' v+ m3 R, Y9 H& w) l% D; T
Button2.Visible = False$ l9 }8 Q$ C! e' t8 ^3 _
Button3.Visible = False
/ m6 N+ c' R& c7 C2 n+ x7 \0 A
Button4.Visible = False
% A; a: a( u, T# s# D7 x! @
Button5.Visible = False
* a) ^$ n* J( Y9 R
Button6.Visible = False l. _& n5 q5 `9 q
Button7.Visible = False3 L7 x+ X% ~" X6 j
Label1.Visible = True; q: V9 x# A& e
Button8.Visible = True4 m. a$ }/ |8 V
End Sub
* n$ e+ B/ x2 W( r$ A% D
2 D. j2 F* D; R5 h7 M5 h9 C
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
- G/ o0 D5 p1 X0 o: I' |
'帳號註冊" Q# _1 E T8 m u" E u
Shell("Rundll32.exe url.dll, FileProtocolHandler https://docs.google.com/forms/d/e/1FAIpQLSfpphD3cDtFCiayoOidc1TE0GLHL6TquEsempTlMRQYN5hZ4g/viewform", vbNormalFocus)+ c/ \( q4 r& Z% C
End Sub
5 @: z3 m) r" W2 Z
7 J% ]2 [5 ` l$ K o6 c
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
/ T7 m9 p( Q: X+ v @- ~# O
'遊戲下載6 g6 R" I1 {9 q+ O" L& _; v: A
Shell("Rundll32.exe url.dll, FileProtocolHandler https://docs.google.com/uc?id=0B_JKhdsxGLKRSE42TXJQbDRicWs&export=download", vbNormalFocus)8 m2 W/ L1 D2 k- t2 ?
6 b/ f3 L: p, _
End Sub! o0 ]% {2 c6 e% B' D' _+ I$ q5 \
/ _# b- ~7 M+ U9 c8 E5 q
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click M9 r) S' O" B$ J7 f; ^
'論壇
7 P8 m/ e/ q0 x% @( }! x* k1 H
Shell("Rundll32.exe url.dll, FileProtocolHandler http://twaicl.joinbbs.net/index.php", vbNormalFocus)) z2 A7 u* N8 F* J. l/ E
End Sub
( ] z. [# Q ~- q
; i6 I* u! e. J
Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
; l! n9 u- {" L% |/ l9 e( G
'宣傳影片
8 [1 R6 b3 |4 {7 Y7 a+ a4 c( Q
Shell("Rundll32.exe url.dll, FileProtocolHandler https://www.youtube.com/watch?v=K_bciqPTBWg", vbNormalFocus)
" c1 X: S/ a' Q' \
End Sub5 Y4 i3 L) V8 L
. A5 Z( H) B7 O, k5 ^& R: ^! S
Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click# d; x Z1 W8 B
End '結束程式$ Y+ D" v8 a- c9 b
End Sub2 t8 u1 v& l" G4 x' H
6 t5 i, y6 l/ _" X; ]5 y
Sub Reset()
+ T. K' {( c" ~3 M8 G; v ~
Button1.Left = (Width - Button1.Width) / 2 - 10
+ h* C/ X) x* r* W
Button2.Left = (Width - Button2.Width) / 2 - 108 c9 R6 k% r5 q5 k
Button3.Left = (Width - Button3.Width) / 2 - 10* F# d, u+ z9 C! Y
Button4.Left = (Width - Button4.Width) / 2 - 10& U; ]6 y0 _: L! `8 @
Button5.Left = (Width - Button5.Width) / 2 - 10; B! A$ N# Z8 Q$ ~( N" W" h
Button6.Left = (Width - Button6.Width) / 2 - 10
3 T8 E0 l; `- ]6 u! ]
Button7.Left = (Width - Button7.Width) / 2 - 10
" l) Z6 Q# z6 q5 I" ~8 T$ F8 {
Button8.Left = (Width - Button8.Width) / 2 - 10
u' d) ?/ m% i9 _8 a- X$ [7 e
Button1.Visible = True! {3 q7 b4 O* ] Y
Button2.Visible = True
8 j1 _/ ^/ u$ k9 W0 y6 k
Button3.Visible = True
% V; e8 o& a; k/ K+ Z f
Button4.Visible = True# [ K5 H8 t. x. S; U) ]% R
Button5.Visible = True
+ J# S4 x1 @) z( @; K( t1 g
Button6.Visible = True; E% S8 u; A3 n5 C' f5 O
Button7.Visible = True5 w8 K* ~9 m# K7 |5 Z
Label1.Visible = False
& N' Q& l' E% B) p, o
Button8.Visible = False" R9 ^9 q, n- l/ S7 x) z2 b
End Sub1 A& ~) }4 j6 x0 f, j) e$ U
, Z0 g" W2 T) W* A3 E' F
Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click- v$ R2 B9 n' @1 l
Call Reset()$ O2 X0 g0 I: F- E) e7 h* M; Q
End Sub$ q: t( d R. z9 t/ V: |2 k+ t
End Class
! B4 U2 o* P1 g; W+ j) d" W7 X- J