CarNa遊戲啟動器改製

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

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

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

【原始碼】：

Public Class Form1
* |- `# b* _$ l% g7 y2 C
Dim IP As String = "******************" '為保護伺服器不被有心人士 DDOS 不公開 IP4 H5 [ b+ y' y
Dim Port As String = "****" '為保護伺服器不被有心人士 DDOS 不公開 Port/ p3 U- D a, s
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load8 V# G ?, F; F( v: ?/ }
Call Reset()
- n8 s% {# _$ {2 A
End Sub
/ m: M) Z ?6 @& z! ^' o
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
% l4 ?5 p2 D& m
If My.Computer.FileSystem.FileExists("localhost.exe") Then
& F) R$ z7 o4 J+ ~7 M9 {* l; ` c
Shell("cmd.exe /c " & "Start localhost " & IP & " " & Port, vbHide), i; X# w8 G) p6 ~
Else( d2 {/ A9 A) X4 l: J" y
MessageBox.Show("無法偵測到 localhost.exe" & vbNewLine & "請關閉防毒並將資料夾排除後解壓縮 localhost.rar", "錯誤", MessageBoxButtons.OK, MessageBoxIcon.Error)
6 L3 X/ t/ S5 O5 X
End If
+ b! B1 [) i6 d8 x+ n g7 `
End Sub! a1 I# B a! F
) d7 D) T7 W5 k, i, w( K
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
" a8 X, N! E! u5 m0 A
Button1.Visible = False
- n2 r5 N' z4 P! M8 {9 {
Button2.Visible = False
3 {: i4 Y0 d4 k6 ~/ v0 a+ A5 M
Button3.Visible = False7 r- s3 K6 O5 f/ p! j
Button4.Visible = False
3 G4 T" P' q; [7 i7 i; x; r
Button5.Visible = False& S g2 e, Y" Q6 g: F: y/ b( c. ~
Button6.Visible = False
) y9 n% o) ` o( n+ F) H1 t
Button7.Visible = False
. `& {/ C- C1 B' a, W3 c0 c2 \, r
Label1.Visible = True
- n( G) [3 c4 ]0 g0 e" t' C% r
Button8.Visible = True4 z# }3 z7 \% U: A, @5 z
End Sub& s% E' ^+ A# g2 a( s
. N2 l5 ~( M+ s* L, K; }
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click! }* N6 a, j# [% k% O9 n7 Z
'帳號註冊* c# m' z; `, D7 u- L2 E4 f
Shell("Rundll32.exe url.dll, FileProtocolHandler https://docs.google.com/forms/d/e/1FAIpQLSfpphD3cDtFCiayoOidc1TE0GLHL6TquEsempTlMRQYN5hZ4g/viewform", vbNormalFocus)5 d/ m7 \0 |/ J
End Sub1 U# J3 y n) R6 y7 u2 [' J" p
" A8 J8 ]. `, p& l: G2 m( F$ [1 }
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
' F8 T( f) J9 y5 A0 I+ Q+ ~( \/ e9 Q
'遊戲下載0 ^1 e; e5 W3 U( N% |% _' L& n% A1 O
Shell("Rundll32.exe url.dll, FileProtocolHandler https://docs.google.com/uc?id=0B_JKhdsxGLKRSE42TXJQbDRicWs&export=download", vbNormalFocus)$ m' D; B: p% I/ x7 G. z' H8 Y6 h
! j8 ~- i% Z; h6 H. q) w. n
End Sub) x* X2 p/ b/ I2 T& c/ u& B5 B
( y. Z2 q- b, j. a6 {7 J
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
7 t9 r3 H$ i4 l) e8 b$ l
'論壇4 C& P) E6 j0 L1 d& F5 V$ P
Shell("Rundll32.exe url.dll, FileProtocolHandler http://twaicl.joinbbs.net/index.php", vbNormalFocus)- }* M/ R& s, k) b! |
End Sub$ E$ e4 p! ^ n
* b1 R3 c' |- R% N* }1 q @) Q4 [
Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
+ _' l- C& ?, G; x- s
'宣傳影片( j# Z- ]6 Y, L4 K3 r
Shell("Rundll32.exe url.dll, FileProtocolHandler https://www.youtube.com/watch?v=K_bciqPTBWg", vbNormalFocus)( Z5 R: R6 ?2 b; E
End Sub# ?: Z& k& @: ^
$ o# E) c" a* X, ]7 h. S
Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click6 a$ @7 Z/ Y$ P7 ?+ ^
End '結束程式" ]. t: e1 E* W7 q7 u* T- o$ x+ @
End Sub4 K/ t, t( ?8 R0 n3 ^2 s
2 {3 `$ f' T( A% h2 N
Sub Reset()
6 F4 U" P0 j" Z+ g/ ]: I; g
Button1.Left = (Width - Button1.Width) / 2 - 10
4 \+ @2 n8 g" [! x: S; G
Button2.Left = (Width - Button2.Width) / 2 - 104 I; ]8 V0 [, l3 W- R* i
Button3.Left = (Width - Button3.Width) / 2 - 10
. t( Y, _4 A: y5 `2 Y
Button4.Left = (Width - Button4.Width) / 2 - 10. |. h( f' V: y9 O$ }6 E( D
Button5.Left = (Width - Button5.Width) / 2 - 10
" d+ @+ L* l) `# l) v0 _) [) A
Button6.Left = (Width - Button6.Width) / 2 - 10
* S1 B+ p, l$ o. z S
Button7.Left = (Width - Button7.Width) / 2 - 10 ~1 F2 t" d" v9 u- ]
Button8.Left = (Width - Button8.Width) / 2 - 104 ~6 j5 |$ Q, x
Button1.Visible = True
9 B* q( k H" i$ q" |5 L2 s: [5 A
Button2.Visible = True
/ f& n+ h) {9 k5 o H* Y
Button3.Visible = True" C+ I& x+ b ^! ?- G6 J
Button4.Visible = True! P% J; S9 i( T* |0 z- a# {
Button5.Visible = True: J3 G- J' @: K- `
Button6.Visible = True
5 M5 v/ E$ I4 I! L
Button7.Visible = True
- o. N+ b: G1 e' G! P% G
Label1.Visible = False% n2 y/ B Q6 [& F* r3 I' }
Button8.Visible = False/ w9 `& l# d, q0 E P! A
End Sub
5 W+ J+ E0 ]7 p/ S* s4 @. p
, u" n- P% A. ]$ k7 V
Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click$ ^" E% }) ^7 ~3 L
Call Reset()
# Q: Y) N- v1 N8 w( ~( Q, {0 }
End Sub5 [) N8 p; Z. c) P9 S% ^+ y
End Class4 k- a6 y& A9 n6 i6 v& H