CarNa遊戲啟動器改製

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

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

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

【原始碼】：

Public Class Form12 `- J7 J2 E8 ^- F
Dim IP As String = "******************" '為保護伺服器不被有心人士 DDOS 不公開 IP- L' e* B+ f2 T2 p: v- f5 v. G
Dim Port As String = "****" '為保護伺服器不被有心人士 DDOS 不公開 Port
, m- E. I( O& s/ {1 m
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load0 L0 f& c, w1 h0 \. H
Call Reset()% h- p9 ~ p/ \" e
End Sub
" z6 w T( P- R1 a7 P9 e# V8 P
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click: E6 I% F% `/ T j
If My.Computer.FileSystem.FileExists("localhost.exe") Then6 R! j. n! y; _4 `
Shell("cmd.exe /c " & "Start localhost " & IP & " " & Port, vbHide)- u; l% }$ |. I/ k4 s% C3 ]
Else( ]' Q, r# W4 r& z
MessageBox.Show("無法偵測到 localhost.exe" & vbNewLine & "請關閉防毒並將資料夾排除後解壓縮 localhost.rar", "錯誤", MessageBoxButtons.OK, MessageBoxIcon.Error)' M2 Z0 T0 s5 A1 O9 {
End If
+ C8 d- c+ @' {& ?. }6 v) }' s) ~
End Sub
" `# w- h& H; g4 c) u, V) c
0 r) g6 j$ @- [0 D2 V: @( F( w* y
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
1 V2 \1 K d& W5 T1 |) C5 t6 Q1 @
Button1.Visible = False! j8 r2 { _) h, _
Button2.Visible = False) f8 {* _+ m& K3 h/ _
Button3.Visible = False
5 z6 o3 W' T( E
Button4.Visible = False
5 S% d( ]) [6 f% Y4 O
Button5.Visible = False; F; F8 j$ L( t
Button6.Visible = False
+ O* a3 X) k/ z: k4 |/ V
Button7.Visible = False i% Y% ^7 u9 }5 ] m
Label1.Visible = True
$ j3 Y6 r8 E3 p I+ @8 }
Button8.Visible = True! U$ m% k# k' d! m5 y( b+ a; r
End Sub
: v) z9 J5 y0 S' X' R
. E$ N; w$ Y# k3 W4 }6 y2 P
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click( d w3 {! w/ n: C! h8 v
'帳號註冊) L, H F, }( x; h/ X
Shell("Rundll32.exe url.dll, FileProtocolHandler https://docs.google.com/forms/d/e/1FAIpQLSfpphD3cDtFCiayoOidc1TE0GLHL6TquEsempTlMRQYN5hZ4g/viewform", vbNormalFocus)
3 }9 b& ~: Q0 v0 @' \
End Sub
0 A) J8 c9 y' L
5 `" T2 h( B: j9 o
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
9 b6 t$ U0 l6 }% s
'遊戲下載; t0 M$ X5 q& f) B Q* A6 D% i
Shell("Rundll32.exe url.dll, FileProtocolHandler https://docs.google.com/uc?id=0B_JKhdsxGLKRSE42TXJQbDRicWs&export=download", vbNormalFocus). f4 }+ ^. K0 f R0 E. ]4 o
& R7 ~- H G5 s
End Sub( l- T/ l c1 ^/ T8 b1 Y
2 r$ r3 f2 n: v8 y0 s) r6 V
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click' ?7 d7 q7 h5 q2 w
'論壇7 M- r, x" m0 F+ y) ]5 \8 r" M
Shell("Rundll32.exe url.dll, FileProtocolHandler http://twaicl.joinbbs.net/index.php", vbNormalFocus)* r3 `2 L& t$ q
End Sub1 [ m# G* R& Q# v t E- S
/ t! h3 g5 | D" K% M
Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
, ^/ ?% [+ O/ x8 z. Z$ e! P
'宣傳影片
& k- {: t. g# V* e' _
Shell("Rundll32.exe url.dll, FileProtocolHandler https://www.youtube.com/watch?v=K_bciqPTBWg", vbNormalFocus)
3 a, B# Z+ X2 N
End Sub; b0 p( v6 B+ y, b# t; Y
& W5 |: _; E& R& R, h) f' E1 [
Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click/ @. ^/ q) z# y* x
End '結束程式
. o& g* {: z4 E1 q: T; |1 X
End Sub
% i8 A m7 ?4 {- O- R
" i+ u; C$ D u9 p( l' ^
Sub Reset()+ H# v; D% m* K! X( O
Button1.Left = (Width - Button1.Width) / 2 - 10. [5 h" ~3 n9 m8 ^; p/ `" E+ d
Button2.Left = (Width - Button2.Width) / 2 - 10( Q( V5 Z. `, T4 J7 o, P
Button3.Left = (Width - Button3.Width) / 2 - 10
3 @3 K1 c. {1 ]/ F7 I# u
Button4.Left = (Width - Button4.Width) / 2 - 103 P; j5 C: M, \3 r
Button5.Left = (Width - Button5.Width) / 2 - 10
( ?3 B( }8 }7 ]4 o
Button6.Left = (Width - Button6.Width) / 2 - 10
, C9 [9 S }, \/ J& c Q* V$ a
Button7.Left = (Width - Button7.Width) / 2 - 10# b( R- u: c' ?& t) S% ?8 }
Button8.Left = (Width - Button8.Width) / 2 - 100 g% }, g! j* g, }
Button1.Visible = True
' z1 Q& c' o" _$ z9 Z: ]) v" e. ~* x
Button2.Visible = True
. }9 c& |) ^) k( A. l2 B
Button3.Visible = True
) F8 R9 u: y! s
Button4.Visible = True
: k/ f2 a% o5 U6 x
Button5.Visible = True* t2 \9 _0 N% M' E/ l- H2 U
Button6.Visible = True. @3 S9 q- U3 q6 k
Button7.Visible = True
2 H+ H; H6 G0 Q0 B5 n
Label1.Visible = False
: y; G8 Y9 G k Z; D# m* R k
Button8.Visible = False
$ R: x. N5 @' G6 A$ b4 Z- I
End Sub
+ f Q4 N) {4 B- _
; O3 O$ {3 X4 `4 n
Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click/ h+ R& u5 N0 o5 v# @2 ^& e
Call Reset()
& z7 c" _) t9 D7 N' w5 P8 k
End Sub
, N/ O" [* C6 p2 y- W
End Class( [5 [6 H7 f' v1 O9 o0 i: S8 G) [