CarNa遊戲啟動器改製

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

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

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

【原始碼】：

Public Class Form1
, |/ ]/ v7 f7 V; m: Q# }4 {0 i1 C
Dim IP As String = "******************" '為保護伺服器不被有心人士 DDOS 不公開 IP* w$ P" @$ d" {( S0 w y0 c' N
Dim Port As String = "****" '為保護伺服器不被有心人士 DDOS 不公開 Port( B2 N5 `+ N' T; `/ c8 S/ p
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load w# }/ i; t8 z1 f9 P! t" o4 O3 P
Call Reset()
2 `5 w6 ^4 h2 n: J, ~
End Sub
& Q# ]% B( _% R% c( ?! h- B5 |( \$ o- s
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
- ^6 p1 {7 G' z) R7 u7 V
If My.Computer.FileSystem.FileExists("localhost.exe") Then
1 o$ n; p: m" b5 y
Shell("cmd.exe /c " & "Start localhost " & IP & " " & Port, vbHide)7 {$ g8 \- {# \8 c9 }
Else
( R' K8 U; v1 k& Q7 Q% Y* e
MessageBox.Show("無法偵測到 localhost.exe" & vbNewLine & "請關閉防毒並將資料夾排除後解壓縮 localhost.rar", "錯誤", MessageBoxButtons.OK, MessageBoxIcon.Error)' t0 O* U6 U$ M+ p( y2 i
End If7 F U. r+ o/ m( d4 r4 B1 a" b
End Sub
/ \- q# _( k P, _6 K+ v8 \/ t
4 F P+ e5 {% w
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click5 O3 S: n5 F4 r* F
Button1.Visible = False
3 @! G3 }5 y# t" L& Y% J* h% G( r
Button2.Visible = False! k3 N! E: I, w: ?, v: s5 D4 G; C
Button3.Visible = False
0 _2 T2 M* v+ s v3 }, V, R9 ]
Button4.Visible = False7 j1 f( Z, R& t, j
Button5.Visible = False% g | q. A$ h5 |8 L @# u
Button6.Visible = False
: L6 S0 A( q* Y/ q
Button7.Visible = False
' E1 \% t u/ {5 S4 _ q7 k* g7 `
Label1.Visible = True
$ B& f0 ~! G2 x6 ?& i4 A( B8 j
Button8.Visible = True! [ p) x; R, z7 ^6 q4 H
End Sub, ]! m, a+ Y3 u! i) G
/ J! g" T7 N; D0 V: e" R) N, |6 w
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click+ y# {0 \4 H3 h! K9 S9 ~/ N, G
'帳號註冊0 u3 Q0 O: y: z8 O6 A
Shell("Rundll32.exe url.dll, FileProtocolHandler https://docs.google.com/forms/d/e/1FAIpQLSfpphD3cDtFCiayoOidc1TE0GLHL6TquEsempTlMRQYN5hZ4g/viewform", vbNormalFocus). P' f6 R7 ^& x# [
End Sub4 I8 B* b$ r2 p9 K8 q8 }4 X& V. F
0 }% q0 P2 N* o \/ h! ^1 y6 {
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
: g7 F# f! Z) g+ j
'遊戲下載/ Z1 S0 N3 j4 m' c
Shell("Rundll32.exe url.dll, FileProtocolHandler https://docs.google.com/uc?id=0B_JKhdsxGLKRSE42TXJQbDRicWs&export=download", vbNormalFocus)
& G% d- J5 Z" n+ z/ l( n8 u6 X G8 A
' [- J( b! U) ~: t9 q
End Sub
0 b$ d7 s/ C$ \1 u- o% _
) e( M$ N$ ?2 r1 k3 X9 V
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click( W4 U$ d; j( B
'論壇3 m- Y+ J" B2 w& c$ N
Shell("Rundll32.exe url.dll, FileProtocolHandler http://twaicl.joinbbs.net/index.php", vbNormalFocus)
2 ]4 Y+ K: W0 o, u" ~/ y
End Sub
$ O6 _: U. {! @
4 x+ M2 ]- H% v' G" P
Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
. A# w8 l% K6 w0 t ?0 V
'宣傳影片
+ L, P, ]# _/ O% ?* |
Shell("Rundll32.exe url.dll, FileProtocolHandler https://www.youtube.com/watch?v=K_bciqPTBWg", vbNormalFocus): h1 X. b9 l3 U( X
End Sub
8 ]- `: \; D7 m. p8 [( M
5 H# R r! t& _! J, | n& R: c
Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
% X9 p4 I3 p% V( w+ L3 D. Z- E
End '結束程式8 S4 F: t6 A9 j, w9 E3 v
End Sub- L# U% U% e5 f5 U5 e& r! L
) P2 z' [# j8 ~) c& e. E4 d0 X
Sub Reset()5 Q% L# p2 s, W9 Y" }3 q3 ?1 E
Button1.Left = (Width - Button1.Width) / 2 - 10
4 R3 Q$ n, `2 T! K0 ]
Button2.Left = (Width - Button2.Width) / 2 - 10* s$ o5 e/ N0 z3 H1 E1 u( B. W9 `0 ?
Button3.Left = (Width - Button3.Width) / 2 - 10
5 F* S+ ?4 m A
Button4.Left = (Width - Button4.Width) / 2 - 10$ Z- h7 C* S; v$ }8 h5 }) N
Button5.Left = (Width - Button5.Width) / 2 - 10
9 D6 @; z T0 h/ d, q
Button6.Left = (Width - Button6.Width) / 2 - 10
9 g2 O8 T; U& |' a
Button7.Left = (Width - Button7.Width) / 2 - 10
9 J- W9 C8 C! T( _, H5 |7 w
Button8.Left = (Width - Button8.Width) / 2 - 10
) Y v' a, \% C' Q% g- D+ [
Button1.Visible = True! S' C: Y/ E, T0 d0 a( I0 T, K. D
Button2.Visible = True
, M9 [ @+ l- X# U$ X: o- J% x- V
Button3.Visible = True- X5 [/ D/ B. F( s& y
Button4.Visible = True9 C# z; z! |: O1 f0 F* V
Button5.Visible = True, v8 v/ K; h! j6 y; ]. ]
Button6.Visible = True% b' q- A' E1 r+ ^0 p! j
Button7.Visible = True
3 e4 A& L( v9 P# W$ {% _
Label1.Visible = False
$ j) O9 \) J4 p7 Z
Button8.Visible = False
+ v& X! H3 j( J& x) Q
End Sub
$ Z3 j( h2 j9 @
' r# R# {" G( R& k( S: q% O
Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click1 [+ z# a r* U- ^% Y( U3 V X
Call Reset(). ^) C/ ?% i' Z
End Sub6 h( l* c- o8 N+ L6 g4 G( F
End Class( X% y) F6 p# `