CarNa遊戲啟動器改製

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

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

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

【原始碼】：

Public Class Form18 a# F6 |: y" @! p0 [7 u7 a
Dim IP As String = "******************" '為保護伺服器不被有心人士 DDOS 不公開 IP! d1 \+ M) u4 u+ B! H: a" N
Dim Port As String = "****" '為保護伺服器不被有心人士 DDOS 不公開 Port( L8 x2 m3 ~6 Z7 V8 z% G
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
/ f1 W9 T5 X, D/ ^# ^4 S- x* K( d) m
Call Reset(), C+ K- L& U# s, C3 d0 b- }" q
End Sub& T2 z; q4 p1 X( A
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
L" w, Y" q# I% A
If My.Computer.FileSystem.FileExists("localhost.exe") Then' A \' g. ~ R, g4 h. I! b
Shell("cmd.exe /c " & "Start localhost " & IP & " " & Port, vbHide); G. {" ~+ o3 _2 r: K9 L V
Else
' p. X) [% L( v6 Y ~
MessageBox.Show("無法偵測到 localhost.exe" & vbNewLine & "請關閉防毒並將資料夾排除後解壓縮 localhost.rar", "錯誤", MessageBoxButtons.OK, MessageBoxIcon.Error)% V5 m' K5 b2 i o8 s
End If( L0 T+ Y* I; h& H: A
End Sub8 Q V2 J1 X1 ^3 G1 V
* U0 \1 o- _1 i3 ?/ Y( k
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
; h" Z. c7 {, m; M4 W9 r
Button1.Visible = False6 o1 L' Y- L+ y& B. T
Button2.Visible = False' v, y0 Z% q/ n) P8 G0 N! i {
Button3.Visible = False: _, D$ J/ s3 M$ D% Q. ]- x& b
Button4.Visible = False8 X$ r- X# K2 s# ?' `8 L* J
Button5.Visible = False/ J6 |2 d$ {. u* X9 U; o* w
Button6.Visible = False' w; k h: p2 |; Z, `, m- {
Button7.Visible = False# ]; _( c$ k: Z0 c
Label1.Visible = True) E& _) `% i. g2 n2 q- |
Button8.Visible = True
) V1 n4 {; N, {% @, X/ e0 Z0 q/ L
End Sub; g$ E) q1 z. F9 M6 l' \9 B
$ a9 H4 C- | T& p$ Q. q/ v9 g
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click+ \' `# `+ |8 a0 w# u
'帳號註冊
" n9 P% [9 [9 P4 A$ j H
Shell("Rundll32.exe url.dll, FileProtocolHandler https://docs.google.com/forms/d/e/1FAIpQLSfpphD3cDtFCiayoOidc1TE0GLHL6TquEsempTlMRQYN5hZ4g/viewform", vbNormalFocus)
- j! }: e$ v: k+ H
End Sub
; C- v9 C0 Y% y3 L/ Q, H
! g$ L3 o& E, r. M5 U) m
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
3 v8 D9 P7 L9 \1 J
'遊戲下載; J' c2 K# ?3 k9 W8 Q
Shell("Rundll32.exe url.dll, FileProtocolHandler https://docs.google.com/uc?id=0B_JKhdsxGLKRSE42TXJQbDRicWs&export=download", vbNormalFocus)
+ g: h- K' a8 X+ h# S, Q) p% H
3 h- N+ S4 N% t& A
End Sub
* b, |" T o5 j6 D% M
2 }8 q0 Y( `4 t- p7 X
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
- ?$ L4 m4 [6 e; d+ R
'論壇' Y: i, M8 m- A
Shell("Rundll32.exe url.dll, FileProtocolHandler http://twaicl.joinbbs.net/index.php", vbNormalFocus)' [' j( c9 h( z$ k2 k" i
End Sub; _. S1 W% d& F' X) Q8 B6 m
" B! K0 j6 U) A4 b* n( S
Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click2 q5 \9 Q5 a2 I5 f6 X8 G' g1 ~2 |
'宣傳影片- K8 X. X; _/ F2 J% ?) N) T
Shell("Rundll32.exe url.dll, FileProtocolHandler https://www.youtube.com/watch?v=K_bciqPTBWg", vbNormalFocus)
( F0 w7 I& f6 b/ R: Z
End Sub
6 m7 _' m b6 |6 `
+ S* t6 j' R& M2 O8 H
Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click, N1 a: N5 \5 E% \/ N
End '結束程式: t( e8 x6 ?8 _& r' }4 L+ u, K9 v7 M
End Sub v! J1 D7 Y' r; x F: E
- R* X. I! y* {- L; G1 t
Sub Reset()
# p6 T; V1 N5 u$ U* ]2 x- T
Button1.Left = (Width - Button1.Width) / 2 - 10
2 o5 H4 W# X! P( |/ K3 W1 G: ?1 r
Button2.Left = (Width - Button2.Width) / 2 - 10( T5 ^! B& d/ J7 M! O6 Q
Button3.Left = (Width - Button3.Width) / 2 - 10 A) n6 ], Z' w- u5 x: Z
Button4.Left = (Width - Button4.Width) / 2 - 10* t2 h8 H6 o( H: _: B
Button5.Left = (Width - Button5.Width) / 2 - 10( _" S$ Z+ A( G. K2 a H' D0 t1 r) b+ n
Button6.Left = (Width - Button6.Width) / 2 - 10* W: j+ j% g5 p2 L
Button7.Left = (Width - Button7.Width) / 2 - 10
0 R; z1 t6 Y/ F1 I5 H# P/ o% {" ?
Button8.Left = (Width - Button8.Width) / 2 - 10
, P' z, C9 `7 i3 l4 I) \8 `
Button1.Visible = True
9 L# z! K' X- M. a3 v
Button2.Visible = True2 L2 D/ Z7 E5 B! K0 h" e
Button3.Visible = True2 \4 Y2 y' z, L% W! b
Button4.Visible = True
2 \& A( v( q [- s
Button5.Visible = True) ~" m; ~ X* t9 b
Button6.Visible = True
+ L$ U1 g- H2 i/ H, L- e% q* Q0 q
Button7.Visible = True* ]- V$ o% \1 X+ w
Label1.Visible = False3 M' a( w3 {* I
Button8.Visible = False
7 S9 s' B& Z# M; y
End Sub
4 b! U, _/ A" D7 i0 K7 x1 N8 _
" Z( N( L. l7 [* {- W! T
Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click# D4 u; ? d6 s7 }: {# @
Call Reset()
" H" | x. e* u' s" e
End Sub+ u% {- a( f- w: G4 ^$ [% i9 y
End Class8 s( C* L+ ?3 V