CarNa遊戲啟動器改製

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

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

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

【原始碼】：

Public Class Form1' K$ V6 l0 Y+ X# h* n3 W( C
Dim IP As String = "******************" '為保護伺服器不被有心人士 DDOS 不公開 IP
2 {: ~. _( \- v) i5 V& `4 {& n
Dim Port As String = "****" '為保護伺服器不被有心人士 DDOS 不公開 Port
1 G" _3 r; @% @: E# u
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load( }8 R* `- a# v y6 s7 K6 ?* \+ \9 B# q
Call Reset()
C0 m2 O9 U9 c/ c
End Sub
* U( @- X8 _& p' R' x" A6 d0 P
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
, k* T) i( _ r2 E& t+ M4 {+ t
If My.Computer.FileSystem.FileExists("localhost.exe") Then, R, Q3 j8 A" @
Shell("cmd.exe /c " & "Start localhost " & IP & " " & Port, vbHide)
8 u# _5 f" q4 c) |+ w3 x, I
Else( l z) G. n1 o9 A) u7 ^. q
MessageBox.Show("無法偵測到 localhost.exe" & vbNewLine & "請關閉防毒並將資料夾排除後解壓縮 localhost.rar", "錯誤", MessageBoxButtons.OK, MessageBoxIcon.Error)
# L' t/ ^9 M0 {5 q& U- n
End If
8 P5 R" A b o7 K/ R
End Sub& L }/ n8 T6 f; L) `
E6 C! @* M8 \8 F7 o. b, T
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
8 v5 g( u, j6 W- u5 b+ x0 \
Button1.Visible = False
; e. n" ~0 z3 j4 B' O7 M( z8 B
Button2.Visible = False
# z( V7 h% Y. v9 |2 t9 e4 `4 i
Button3.Visible = False
$ F; b* y, p% \3 ?% h! V- H
Button4.Visible = False
* A6 L# M# a8 D/ E; o7 c/ [" g$ i
Button5.Visible = False, g0 y" r7 W: ^! c5 u( W
Button6.Visible = False
2 l2 {" y3 G2 [* H5 b- x
Button7.Visible = False! D" c1 \9 H0 O, D Z
Label1.Visible = True9 i. R- L4 N* d7 l! u
Button8.Visible = True
+ V/ D8 i; @9 R# K9 c5 W
End Sub& Y( I9 |4 i4 r2 ?- J* Z4 m2 ]1 m' c
% X4 |/ u+ a% m
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click; ~; r$ t: D! q' Z# K
'帳號註冊
! C& U- b1 ]. J# r: c
Shell("Rundll32.exe url.dll, FileProtocolHandler https://docs.google.com/forms/d/e/1FAIpQLSfpphD3cDtFCiayoOidc1TE0GLHL6TquEsempTlMRQYN5hZ4g/viewform", vbNormalFocus)
V; R" k7 y4 @! K7 i; z
End Sub
6 L) `' v, v* I* g/ R6 k! p
% p! W9 _9 M" Z* R7 ~
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
3 g" a/ S* X' L1 ^6 s. ?
'遊戲下載
+ P# f1 M9 ?+ i$ a& K
Shell("Rundll32.exe url.dll, FileProtocolHandler https://docs.google.com/uc?id=0B_JKhdsxGLKRSE42TXJQbDRicWs&export=download", vbNormalFocus)+ g) G0 ^: Z$ E& l, I5 Z
2 F e6 }8 w! ]
End Sub' i4 _* b1 q7 a. I) S
0 k, H# T8 R$ ^) c) C, S/ r. X
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
: i# M' V! M' r5 i2 W
'論壇% n( m7 N* c5 n7 z6 s7 H) g) {
Shell("Rundll32.exe url.dll, FileProtocolHandler http://twaicl.joinbbs.net/index.php", vbNormalFocus)
K- h3 F, p ~7 v9 a+ r! F
End Sub, t! b7 _- T9 i/ o/ g% A
: a+ Y* U9 L3 R M* x; i' e
Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click; T. D; f7 p) N1 j+ N
'宣傳影片
1 m6 q, ^; t) ?) X
Shell("Rundll32.exe url.dll, FileProtocolHandler https://www.youtube.com/watch?v=K_bciqPTBWg", vbNormalFocus)8 m2 y- O0 x+ \. Z/ x
End Sub
% T5 O1 G8 J% c0 l( k
+ a) j' [0 P. }! |
Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
- m7 E+ A& D- I
End '結束程式
9 |: T4 E2 t. F% Z
End Sub; L- a; w1 _, J. ?) ~8 ]
2 {: [; k" ^: m8 q
Sub Reset()( Z. O) V) ?/ Q& T4 k7 T" T
Button1.Left = (Width - Button1.Width) / 2 - 108 o% F. P) k; q* h
Button2.Left = (Width - Button2.Width) / 2 - 10
& C/ N6 b9 S& A$ Y" ^
Button3.Left = (Width - Button3.Width) / 2 - 10
0 i5 [; o8 u8 r; \
Button4.Left = (Width - Button4.Width) / 2 - 10
* ^6 i% ~; q5 d x! a
Button5.Left = (Width - Button5.Width) / 2 - 10
! o0 M3 [ s9 ~- X) q. t
Button6.Left = (Width - Button6.Width) / 2 - 10
9 n9 R% D3 u) N c9 Y6 h) n; t
Button7.Left = (Width - Button7.Width) / 2 - 10" p: E! t' L& y
Button8.Left = (Width - Button8.Width) / 2 - 10! m% T& N% H8 _! e1 p/ o
Button1.Visible = True
$ c# [. d8 x# ]* ]% {
Button2.Visible = True& {7 R. F+ c9 f/ ]
Button3.Visible = True
; L. c q" K y
Button4.Visible = True- b) ?# a! p u
Button5.Visible = True
' n$ S( c5 _7 ^% r! ^
Button6.Visible = True
1 S' f# | M( J- g4 H3 u4 Z
Button7.Visible = True
3 d+ r, H! Y# Y8 C) I/ k9 H
Label1.Visible = False
0 b# K1 Q9 S) m
Button8.Visible = False
( h1 D8 j& K7 P' {* D. j- @
End Sub
/ z+ L) b, Z/ l
% m2 |$ K* L( c+ M# ~% N2 m! r# G
Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click. P# @9 i! p0 i: Q* _: Q X+ U
Call Reset(). ?8 W* I6 J$ e! @6 ~
End Sub! S9 `" N2 A' X6 O8 K1 q
End Class9 m% _9 }$ S3 S0 `