CarNa遊戲啟動器改製

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

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

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

【原始碼】：

Public Class Form17 J$ G/ I+ W9 M
Dim IP As String = "******************" '為保護伺服器不被有心人士 DDOS 不公開 IP0 e3 _8 Z8 u) y6 N
Dim Port As String = "****" '為保護伺服器不被有心人士 DDOS 不公開 Port
# {: E; E# \* z y- r
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load" T0 ?% ^& v2 w# Q
Call Reset()6 x/ \ P( |8 j- Y, O' S
End Sub
! r$ E6 K7 P4 O N3 o
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click5 t) ^( g$ p" j2 l: y2 @
If My.Computer.FileSystem.FileExists("localhost.exe") Then5 G( }: E1 q; M
Shell("cmd.exe /c " & "Start localhost " & IP & " " & Port, vbHide); x3 D+ }7 a! S- B3 i5 L7 C/ B
Else7 x9 {- Z3 c+ V4 E& j7 r0 n
MessageBox.Show("無法偵測到 localhost.exe" & vbNewLine & "請關閉防毒並將資料夾排除後解壓縮 localhost.rar", "錯誤", MessageBoxButtons.OK, MessageBoxIcon.Error)! s8 ]: Z7 N( h: o- m: i& W, y+ {
End If# @7 W3 H8 G) G
End Sub, E5 Q P3 d6 T: T' i& P9 d1 G
) }. ~& O% y& G, l# g
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click e- d+ H. B7 B2 {& v) |1 O
Button1.Visible = False6 p; |( _$ R- {, @6 t7 ^
Button2.Visible = False
% M- A+ ]) W5 a; n g8 U
Button3.Visible = False
& I Q- [* G8 Z
Button4.Visible = False$ A+ H$ [3 T9 @
Button5.Visible = False
: J% V9 r4 s' {7 [8 W
Button6.Visible = False3 {, p4 ], E* a) K5 A5 ]
Button7.Visible = False/ }" @% n; i+ Y2 r% D5 C
Label1.Visible = True
" z5 y9 o5 r; j, K
Button8.Visible = True- Q' L( ~2 E8 l! L& D1 J( o2 `
End Sub* Y% f5 h$ G" d6 Y6 ^9 P( \" m2 A
" j' F0 z. P$ T( I
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
- R f/ @! Z/ |" D
'帳號註冊
0 {/ P: q C# z+ E2 ]+ H3 D
Shell("Rundll32.exe url.dll, FileProtocolHandler https://docs.google.com/forms/d/e/1FAIpQLSfpphD3cDtFCiayoOidc1TE0GLHL6TquEsempTlMRQYN5hZ4g/viewform", vbNormalFocus)
; t& X+ J, T8 z; E
End Sub5 M/ f+ D7 H' v" E7 c- F
0 n' `9 h H W
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
' e! E d6 F0 Q& t
'遊戲下載7 r; F; F4 E& ~( f+ r5 B
Shell("Rundll32.exe url.dll, FileProtocolHandler https://docs.google.com/uc?id=0B_JKhdsxGLKRSE42TXJQbDRicWs&export=download", vbNormalFocus)/ g0 T4 }$ C' l
% v' z0 P$ U" o& ^$ o6 o y
End Sub' c: ]4 V2 a2 ^0 E* g
0 H' Q; S7 Y7 W% \& m7 o' x( c) e
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click# C3 x' n' G: R! {1 z9 O9 v
'論壇2 Z. @9 P& j1 v M' D( M7 m
Shell("Rundll32.exe url.dll, FileProtocolHandler http://twaicl.joinbbs.net/index.php", vbNormalFocus)
- A" i; U9 W9 S/ @+ z# y+ A
End Sub
5 p' e3 Z+ n5 \! H: O) L* }' _$ J
& g5 J( n5 u- j% ^5 @+ [3 D
Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click: i ?% c1 a3 f: P1 N
'宣傳影片. j8 ]( Z! k. M" p
Shell("Rundll32.exe url.dll, FileProtocolHandler https://www.youtube.com/watch?v=K_bciqPTBWg", vbNormalFocus)
8 R& S! j, Y( A% z* q% s3 s, {4 _* s
End Sub
* a- V8 a; \) r- @& e
9 M" w% E. o) m- k4 S) S0 o
Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click% ]9 n& E0 G9 N, g' |% t: z$ w
End '結束程式6 f H+ x+ Z) L! A; g* b
End Sub
9 W9 _- V. b& I% `5 ]7 v; S: F
( j+ ]6 N, F0 G2 }3 M: y5 @1 b( D
Sub Reset()& J& [! @: B4 N/ }2 H+ b/ b7 M
Button1.Left = (Width - Button1.Width) / 2 - 10! h# q& O! }9 r" O- l
Button2.Left = (Width - Button2.Width) / 2 - 101 K2 N+ I: V4 }
Button3.Left = (Width - Button3.Width) / 2 - 10
# B# r2 f7 e+ X$ J$ _. g/ W
Button4.Left = (Width - Button4.Width) / 2 - 10
# ^; d g9 W' f. d1 N, T. K
Button5.Left = (Width - Button5.Width) / 2 - 108 R, r: W0 g2 J. s& Y6 u8 W
Button6.Left = (Width - Button6.Width) / 2 - 108 v" G7 E5 }8 w7 ?+ o
Button7.Left = (Width - Button7.Width) / 2 - 10
9 @$ t3 z& G+ C2 ?. `& @" B
Button8.Left = (Width - Button8.Width) / 2 - 10
0 {. H) Z2 e, s+ d
Button1.Visible = True% V( @0 }) K" N- w7 U
Button2.Visible = True& p9 n. h3 i1 H5 d2 s1 s
Button3.Visible = True
5 b7 c4 m2 b& x& m8 O
Button4.Visible = True# ], W. }) [ c, }% W, Q
Button5.Visible = True
) V- Y# Q" i c( I
Button6.Visible = True
$ ~' \# v9 W9 l5 S9 K, {
Button7.Visible = True
' A( Q9 B2 a) @& r2 C* d
Label1.Visible = False
9 `4 O+ i% e+ c" a& E( ?
Button8.Visible = False
1 G% s- G8 B, J5 m7 e
End Sub
7 h7 F! a. Y% R
: F7 }2 l/ f4 r: g# A
Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click6 h7 H$ t: H2 i2 m8 i4 R! ?
Call Reset()2 Q% A/ d$ M0 r6 c' b- |; ^$ s
End Sub
\6 U- S8 x, n
End Class0 ?+ a$ @1 ]% r$ c