CarNa遊戲啟動器改製

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

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

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

【原始碼】：

Public Class Form1
# k$ J, b7 P% p4 R0 i
Dim IP As String = "******************" '為保護伺服器不被有心人士 DDOS 不公開 IP
% I" r/ ?& t! x3 P
Dim Port As String = "****" '為保護伺服器不被有心人士 DDOS 不公開 Port. D, H6 b4 I: E$ H+ i
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
) Q& E) L8 w* Z: {" U$ E
Call Reset()
- T. w1 z+ _1 A7 ^1 D, @9 X
End Sub
' \7 F! X1 F( S5 W
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click8 [; I; `/ K8 @! H7 r' V
If My.Computer.FileSystem.FileExists("localhost.exe") Then
$ d' ]! f* v7 Y+ K0 q
Shell("cmd.exe /c " & "Start localhost " & IP & " " & Port, vbHide) }2 [% @! Y" K- T) O: r, o% Z7 B
Else
* v9 G+ t' O, R: V5 ]2 O# `- U
MessageBox.Show("無法偵測到 localhost.exe" & vbNewLine & "請關閉防毒並將資料夾排除後解壓縮 localhost.rar", "錯誤", MessageBoxButtons.OK, MessageBoxIcon.Error) O$ c$ \! F" W- V9 @
End If3 v) j0 O! E' l- P H
End Sub
0 {8 s2 `! S7 K( c3 H1 v
/ W* {# ?, b, f* Z. |
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click2 P* C$ {1 Z' v" T, a. e
Button1.Visible = False
1 ?/ {7 K- c* @: i8 X( C B
Button2.Visible = False
4 e0 r( l" T, J' |$ E
Button3.Visible = False) @% \! c; b. ~! k
Button4.Visible = False
* e) E E% j, v5 a" @
Button5.Visible = False3 L* Q. u0 u% E* p
Button6.Visible = False9 Z1 l1 `5 V0 @5 m$ X, n/ i
Button7.Visible = False: G7 `2 O m0 m. S6 @. ]
Label1.Visible = True
" b+ P+ R5 Q1 R0 a3 K
Button8.Visible = True
& O( e) J# X9 K! V K
End Sub
. Q3 ~ Z6 [6 l, s* e+ c
" c5 c/ `' U2 o' s
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
% |4 g+ ~- S6 e* D3 p
'帳號註冊2 q7 S1 D" T! a! K; g3 A* v, l9 I
Shell("Rundll32.exe url.dll, FileProtocolHandler https://docs.google.com/forms/d/e/1FAIpQLSfpphD3cDtFCiayoOidc1TE0GLHL6TquEsempTlMRQYN5hZ4g/viewform", vbNormalFocus)& x" v8 A. A: _
End Sub
$ F' v: F( X, ?) @# m% `) n% |' K! @
: _" J. {. Z4 x! |; g
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click0 v' e, ?. Q% O
'遊戲下載( @1 J2 h% o; f
Shell("Rundll32.exe url.dll, FileProtocolHandler https://docs.google.com/uc?id=0B_JKhdsxGLKRSE42TXJQbDRicWs&export=download", vbNormalFocus)& x3 v3 c+ T/ \7 U+ p+ X1 G
J) i$ ?3 O1 L) o* A1 w: y
End Sub
- \6 h: g8 d% J
8 `0 w- A: e3 q' P5 L
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
* @) b5 D2 z! O9 b1 N
'論壇
7 n, ]! M- G6 N3 B
Shell("Rundll32.exe url.dll, FileProtocolHandler http://twaicl.joinbbs.net/index.php", vbNormalFocus)
' q0 d/ y- g1 e: E; ~* x6 r0 Z
End Sub
. h8 Y0 |1 f& m8 k6 r
' }9 m8 y3 Q `2 b
Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
4 t( d5 Y- V) J
'宣傳影片* v3 l4 q5 U' i- Z9 L
Shell("Rundll32.exe url.dll, FileProtocolHandler https://www.youtube.com/watch?v=K_bciqPTBWg", vbNormalFocus)
; g5 Q! p' C8 C; ?; p9 e' Q
End Sub
4 Z3 ]5 N4 U4 k) i# ~; L
|6 d2 w( O) s: Z6 s! r
Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click1 g7 u' c1 c: @
End '結束程式5 G& K7 x1 N6 Q, ?' R+ S
End Sub
) z9 s0 I) Q$ o
% M8 Q" K( n' [& Z8 R
Sub Reset()) W! }# a3 n' W- o7 X
Button1.Left = (Width - Button1.Width) / 2 - 10* D7 {. u9 Q: ~3 B
Button2.Left = (Width - Button2.Width) / 2 - 10
, @. \0 S U* k% O- [. X p: S
Button3.Left = (Width - Button3.Width) / 2 - 10
' F/ C) y1 C& H; p/ S% D
Button4.Left = (Width - Button4.Width) / 2 - 105 G0 V7 M& e0 a3 Q4 J1 @9 U
Button5.Left = (Width - Button5.Width) / 2 - 10" D8 P$ l7 c# v1 v1 R6 X3 Z
Button6.Left = (Width - Button6.Width) / 2 - 10' S( t4 b: ]' V+ W
Button7.Left = (Width - Button7.Width) / 2 - 10! K: I) x+ Z5 S# |+ B
Button8.Left = (Width - Button8.Width) / 2 - 108 W" K) k2 l2 {9 P& m' @* y
Button1.Visible = True, a# Q/ O+ R; w+ a! z! o0 t0 v* }
Button2.Visible = True
( I4 c; c* x+ j+ j8 |2 [
Button3.Visible = True. L& }) M) P2 L& T0 r; ]) ^
Button4.Visible = True* X$ s' l8 o; d! x8 w
Button5.Visible = True' j3 Z$ F. R8 k U2 J# ^; A% m
Button6.Visible = True
0 R7 S( a1 ^( L5 k& X! V
Button7.Visible = True
/ b4 E5 q8 M* X* Z' H F$ k
Label1.Visible = False, o! A# h2 b& n5 y' d' g
Button8.Visible = False; H5 u3 R; r; a7 a, R( R; T6 R9 J
End Sub4 o; k4 H4 D+ Y; ~! ]
1 |% m) C; r: k0 O1 z# W9 T3 S
Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click4 e# u3 T; |, L; S+ E$ |
Call Reset(); ^5 |+ b- m* U; G. v8 ?2 w0 R# ^ I
End Sub% Y! j1 b |) [. A
End Class; q8 ]# |- G% l5 R8 J9 `. L