CarNa遊戲啟動器改製

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

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

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

【原始碼】：

Public Class Form1: z' Z* n1 _! o
Dim IP As String = "******************" '為保護伺服器不被有心人士 DDOS 不公開 IP
, O8 j2 E: y! q; Z- g
Dim Port As String = "****" '為保護伺服器不被有心人士 DDOS 不公開 Port9 q' B h- ^* A( {* i7 V7 L
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
, g l4 X' z4 g- q
Call Reset()
9 J4 ?1 {* F; a
End Sub
- k- k1 J3 ^6 ]. h& n, X6 _
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
1 Z0 J2 @) `2 P& W/ {" J
If My.Computer.FileSystem.FileExists("localhost.exe") Then
: p, K$ X1 i* d, |9 M8 N( N
Shell("cmd.exe /c " & "Start localhost " & IP & " " & Port, vbHide)
% J0 ?! |7 ~- l4 Y u
Else( |/ j6 A7 d% s6 Z/ n) O
MessageBox.Show("無法偵測到 localhost.exe" & vbNewLine & "請關閉防毒並將資料夾排除後解壓縮 localhost.rar", "錯誤", MessageBoxButtons.OK, MessageBoxIcon.Error)
( ]' k* S" l1 V# r g
End If
1 r- G* ?* n0 @6 l' |
End Sub8 i2 M Q1 R! e0 a
1 d. d& r+ P$ t/ r% n6 M3 n
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click( C5 I! h0 Q, c' ?
Button1.Visible = False
, m1 I1 C c. X
Button2.Visible = False
+ {( A8 a) }( D& x( y5 ]
Button3.Visible = False
0 i: c2 P8 l: B8 l V$ K. V
Button4.Visible = False
8 M$ w4 k$ u! o" p1 l
Button5.Visible = False; K" i$ m- R1 ?3 k: F* h' V) l3 q
Button6.Visible = False0 `; {# J* ^ s* N$ Q- L+ ^' z
Button7.Visible = False7 }( e: J; ^+ E, D' b$ j) v0 w
Label1.Visible = True1 h# A2 ~ h0 R6 F( {; A) q3 s1 o- @
Button8.Visible = True# t3 C9 t3 r0 Z- K3 e! s4 g) ]+ T
End Sub0 b: P) ]9 J: Y
! B" M# q1 [! k' d4 o; g( h ~
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
! H# U" H; ^ R! o# i
'帳號註冊 l, p" X+ M7 L) f% B
Shell("Rundll32.exe url.dll, FileProtocolHandler https://docs.google.com/forms/d/e/1FAIpQLSfpphD3cDtFCiayoOidc1TE0GLHL6TquEsempTlMRQYN5hZ4g/viewform", vbNormalFocus)8 R7 E: e7 v1 J- ^
End Sub: U/ x4 _+ g3 W0 b4 t4 S& C. f) T
. a, T- w: T8 N. A5 j$ G1 K! g2 f$ x
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click K- p. K% c+ K; s: B
'遊戲下載
. I4 e; k/ J9 z
Shell("Rundll32.exe url.dll, FileProtocolHandler https://docs.google.com/uc?id=0B_JKhdsxGLKRSE42TXJQbDRicWs&export=download", vbNormalFocus)
: }, o G4 g9 S! e8 Q1 D8 N6 b
; I- L$ V: E- k- t
End Sub+ P, G" {: |* y( i% E/ t
' D8 n# ^5 d0 o1 E! j; E1 W8 n% ?5 `
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
, o& ^9 x/ n$ }( ^, t
'論壇6 l- R% |; r8 a# Z O
Shell("Rundll32.exe url.dll, FileProtocolHandler http://twaicl.joinbbs.net/index.php", vbNormalFocus)
/ S) @1 A" G3 N" Y
End Sub
4 T, A, c, ^+ t9 L- N0 b
) [0 j8 U- }. G" }( ]% |
Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
) c; v' r: p. _% ~
'宣傳影片
" p. M8 g3 E& ~1 ^ C
Shell("Rundll32.exe url.dll, FileProtocolHandler https://www.youtube.com/watch?v=K_bciqPTBWg", vbNormalFocus)8 Q) n* k5 O3 `3 Y* z# ~
End Sub
6 \1 j: c+ w$ N, _. V# }- Q
" ?. K: }; c6 s. S1 j, a2 G3 A
Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click* j7 b$ ?4 a: e9 N: S) o; R, V8 E( ?
End '結束程式
& ?/ h( ?+ f/ }8 Y
End Sub
5 b/ E% j" B' |) u! A
n( C# J H ?; s
Sub Reset()$ ?& p) Z$ d2 E' r. l
Button1.Left = (Width - Button1.Width) / 2 - 109 Q3 w. k: e8 e" n
Button2.Left = (Width - Button2.Width) / 2 - 10
, Z7 n' {) P7 C, i6 x. {5 ~
Button3.Left = (Width - Button3.Width) / 2 - 10
. o. F, G2 L2 F) k- _( P. {
Button4.Left = (Width - Button4.Width) / 2 - 101 P7 p F2 C/ v) E
Button5.Left = (Width - Button5.Width) / 2 - 10+ L% ?2 J, a! {0 y% I. F
Button6.Left = (Width - Button6.Width) / 2 - 10
3 o# N: T, S8 ]
Button7.Left = (Width - Button7.Width) / 2 - 10
+ L" w* p3 E/ H1 k. {, V2 v
Button8.Left = (Width - Button8.Width) / 2 - 109 k2 W+ d/ p( D% ~' x' E# m/ r
Button1.Visible = True
; e$ V6 d A/ W3 b0 p, V1 |$ k- a
Button2.Visible = True/ g; G# ? W! C1 s4 b' }0 R
Button3.Visible = True
) p/ i6 Z7 a( H7 [
Button4.Visible = True; Z, V, R5 W* J1 Q3 y' S1 J
Button5.Visible = True
* Q% o. C8 j, @* l# @: [
Button6.Visible = True+ ]% i: x- _7 y1 M1 F4 O$ a
Button7.Visible = True2 a x, j( a2 s, m& a) g
Label1.Visible = False
, H5 ]. Q' i6 E, b3 H) i7 Q
Button8.Visible = False# k7 J7 r0 ?( T
End Sub
" }, s7 D1 X* `# m! O& L7 ?
$ A: H3 ?2 h6 c9 B3 ?1 C' l
Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click5 R: t$ {' G3 S' e/ C. ?; r
Call Reset()
, e9 |0 D1 J6 `
End Sub
& ~) z( \4 X: M7 F; u
End Class
7 g* D+ a- y: c' o- O% i `- E