CarNa遊戲啟動器改製

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

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

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

【原始碼】：

Public Class Form10 u* @4 c; Z$ k; g) u
Dim IP As String = "******************" '為保護伺服器不被有心人士 DDOS 不公開 IP
: W. r. F. w! A1 W: y
Dim Port As String = "****" '為保護伺服器不被有心人士 DDOS 不公開 Port9 @1 ]) T! |* N% u
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
7 `, _, u. U$ S
Call Reset()
5 |3 c; b) A/ R# M
End Sub" J/ B5 Y, \8 e8 p; O8 n' M
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click. H2 g2 l' h6 h$ Y' O/ T
If My.Computer.FileSystem.FileExists("localhost.exe") Then& p5 w. y) x, L: k6 e$ `6 w
Shell("cmd.exe /c " & "Start localhost " & IP & " " & Port, vbHide)
, j7 R! P4 y' P+ Y+ {
Else
3 k a4 K0 |9 L% |" J
MessageBox.Show("無法偵測到 localhost.exe" & vbNewLine & "請關閉防毒並將資料夾排除後解壓縮 localhost.rar", "錯誤", MessageBoxButtons.OK, MessageBoxIcon.Error)- }5 Z8 n) W5 N
End If
|/ N6 i+ ]! U) e4 S$ x
End Sub
+ o, X: u2 o3 }! z- k# s
5 N& S- @" _5 V: O) k
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click9 s+ D+ M* q- E4 o
Button1.Visible = False+ n1 n6 d) ^8 ]7 g4 X
Button2.Visible = False
) Z2 O+ j. D# K$ M3 f% B, U3 m. R
Button3.Visible = False% b* e0 Q. @# B; |
Button4.Visible = False2 ~7 v1 S( }2 _! h9 x! a1 f
Button5.Visible = False
1 y( R. G% O6 ?, F' r5 R8 ~
Button6.Visible = False
/ e, X8 t! F1 d
Button7.Visible = False
) g0 ?: C! e3 j) ] B% b0 i
Label1.Visible = True
) x$ W* n3 U2 T* N6 Y* `: V3 E
Button8.Visible = True! O% v) I e' u% i) S
End Sub6 I ] F1 U" q" b* j0 g
) d" B+ o/ {2 [% H. g* {+ [* P
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click9 Q! J/ L+ ]) ^% H1 _) ~* _
'帳號註冊
/ ^/ \; ^8 p3 n; R" g$ x$ c2 {- a5 P
Shell("Rundll32.exe url.dll, FileProtocolHandler https://docs.google.com/forms/d/e/1FAIpQLSfpphD3cDtFCiayoOidc1TE0GLHL6TquEsempTlMRQYN5hZ4g/viewform", vbNormalFocus)- b! f9 Q' Y) p0 w" ?( i
End Sub% f: \/ O6 f( m7 Z# q8 p. s @
" J% }. ^% o! |2 _# Z# l z
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click0 X% h, x/ R/ f4 b3 l
'遊戲下載
& c' ?1 d0 |& u
Shell("Rundll32.exe url.dll, FileProtocolHandler https://docs.google.com/uc?id=0B_JKhdsxGLKRSE42TXJQbDRicWs&export=download", vbNormalFocus)3 D$ S! W3 \* K3 N; i+ _
' l' d: G A u
End Sub9 ?1 t/ \2 t. I3 a- ~6 W
( G* b. [# d: R4 z% G P2 Z
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click5 P8 s/ T$ C; ^
'論壇
$ l/ C$ n) J- ~# p! I5 u' R
Shell("Rundll32.exe url.dll, FileProtocolHandler http://twaicl.joinbbs.net/index.php", vbNormalFocus)
* \8 V! j# O2 X+ l, S8 C3 a4 r' p
End Sub3 R H/ x/ Q0 T4 r8 ^& E
3 B4 W \; x1 i/ y \
Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
6 ]' c7 x; [( {3 b5 a1 O
'宣傳影片
$ z2 p& z% d. U7 o6 _7 J
Shell("Rundll32.exe url.dll, FileProtocolHandler https://www.youtube.com/watch?v=K_bciqPTBWg", vbNormalFocus)
$ ^" f' W# B+ l1 s: L
End Sub" w# J9 o1 B5 I) H2 n
( ~9 ~& W3 n- j8 G# a1 @
Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
% Z( K) H" ]9 P$ U* q4 K( o) X' w8 C
End '結束程式7 Q! r8 \( P& t+ a
End Sub
) m. a( h [, |4 E$ ]
0 f# `& E! e( q- Z
Sub Reset()) F, s$ j4 @: G2 P; s% Y2 F
Button1.Left = (Width - Button1.Width) / 2 - 10- J: h& E! a& `7 P6 y2 T
Button2.Left = (Width - Button2.Width) / 2 - 10
; ]8 Q$ i1 R% E) @
Button3.Left = (Width - Button3.Width) / 2 - 10
t& {& \9 C( T# u7 k
Button4.Left = (Width - Button4.Width) / 2 - 10, v3 h! [8 U! r1 B
Button5.Left = (Width - Button5.Width) / 2 - 101 x; b0 \6 B( x& ~1 d0 \" f6 I4 }0 I
Button6.Left = (Width - Button6.Width) / 2 - 10
+ E, u* W/ Q9 L% S
Button7.Left = (Width - Button7.Width) / 2 - 10) y3 [8 Z- m( C2 h& A7 P9 p
Button8.Left = (Width - Button8.Width) / 2 - 10
: z2 `/ V! i6 b- {8 w
Button1.Visible = True! c1 q0 z5 N- u( V
Button2.Visible = True
3 m, @ ^+ ^0 c& m$ Z @
Button3.Visible = True
8 L' k _3 j, A d
Button4.Visible = True
# d) l. ]* G4 i$ J/ Q
Button5.Visible = True4 D6 b& o$ M; k! o0 y+ h
Button6.Visible = True
) y+ h8 r* p; E$ r* O
Button7.Visible = True1 ~* l) ~& A# t7 W# s# k+ H
Label1.Visible = False
! G# ~( q2 v* d+ `
Button8.Visible = False
}/ f- D/ z: D1 Q; a7 G5 A! S- Q
End Sub
( {- y2 _: Z0 e$ D/ f% _
/ c# S# {6 z: j3 i! ^
Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click. }! G2 ]2 |* B3 `; A0 V- `
Call Reset()
3 N- C5 ~5 ~2 z9 X) B+ v4 I
End Sub
, l+ e3 e* R8 K+ Y- H" H
End Class; T" c( f% c9 A; \1 ?) s: I, [