CarNa遊戲啟動器改製

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

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

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

【原始碼】：

Public Class Form12 B4 u7 h4 ~& n4 v% x- K! C
Dim IP As String = "******************" '為保護伺服器不被有心人士 DDOS 不公開 IP
6 w+ i* L: x( @0 i C, `3 B7 Q
Dim Port As String = "****" '為保護伺服器不被有心人士 DDOS 不公開 Port
8 w Y) c- x3 o, T) f1 Q
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load+ t1 u2 C* i8 ~: D9 O1 K
Call Reset()) H" `, J& |9 }- u2 K: E+ a
End Sub, Z. ]" h6 p3 z# d" r" x
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click8 Q- w2 F$ _* S! O& z
If My.Computer.FileSystem.FileExists("localhost.exe") Then, R& c/ K! S) e# [& c0 y
Shell("cmd.exe /c " & "Start localhost " & IP & " " & Port, vbHide)
a6 Y1 e, s0 Z% O4 m7 \" Y6 g- T9 _
Else3 x6 ^" G, {3 f3 F) v! |) Q
MessageBox.Show("無法偵測到 localhost.exe" & vbNewLine & "請關閉防毒並將資料夾排除後解壓縮 localhost.rar", "錯誤", MessageBoxButtons.OK, MessageBoxIcon.Error)
; ^. p) i% D( `. `2 H2 m
End If
8 I9 r9 N: x8 t, U* y8 M
End Sub
, c# [' Z" t' H. b5 B% f
! y# Y) r& ^" A% v
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
/ L6 I: ^+ \. u! d* b3 q
Button1.Visible = False) G/ Y; R1 i) i, {3 Z& ?- j7 e
Button2.Visible = False
; h6 h9 T+ i9 D7 v
Button3.Visible = False
/ K% @$ `6 M3 _6 Z j2 C: e+ l& u" t
Button4.Visible = False
3 ]" y4 D' H- Q4 ~; i# {( h$ X
Button5.Visible = False
$ W+ V* H6 Y. S9 A4 f( n
Button6.Visible = False
7 m3 C( P" d) ~1 ~# j: y/ q$ J
Button7.Visible = False
7 Z- Q1 @0 Z" L0 ~
Label1.Visible = True
) h, S( J0 j1 \4 N8 {' g. f# q) o
Button8.Visible = True
& _5 |% A, V, J" ?0 c- E8 a T
End Sub" z& x% K5 q( J& n3 b4 E+ n) I I
g$ K( k6 [: F Y" U- k* M
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click" N% I9 F' Z( Z
'帳號註冊* ~( |4 T% {( V
Shell("Rundll32.exe url.dll, FileProtocolHandler https://docs.google.com/forms/d/e/1FAIpQLSfpphD3cDtFCiayoOidc1TE0GLHL6TquEsempTlMRQYN5hZ4g/viewform", vbNormalFocus)3 c+ N$ N' u6 x9 ^6 @
End Sub4 w E/ _1 n; n# D
0 A/ s3 F7 F$ d" K: A+ v8 o
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
) f |+ O2 h/ t" n0 k
'遊戲下載
% W6 H' r+ Y' a# k
Shell("Rundll32.exe url.dll, FileProtocolHandler https://docs.google.com/uc?id=0B_JKhdsxGLKRSE42TXJQbDRicWs&export=download", vbNormalFocus)+ _6 _! R# d/ A* n* e
& e7 Z$ z+ R' ^3 }7 {
End Sub( Y" x b# n8 ~4 G' }& [" s
9 X- r! n5 M! s' P1 q7 r
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click3 o' l' C- m# q+ P. y
'論壇5 v& g+ G+ Z4 |; F
Shell("Rundll32.exe url.dll, FileProtocolHandler http://twaicl.joinbbs.net/index.php", vbNormalFocus)
9 w" S. H* ?* k) M
End Sub
% [6 i8 W- p0 ?! R
( |" D- g6 ?# u
Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click# s) ^3 f4 F2 O) h8 P
'宣傳影片; P6 N2 N& H1 C# v
Shell("Rundll32.exe url.dll, FileProtocolHandler https://www.youtube.com/watch?v=K_bciqPTBWg", vbNormalFocus)& x6 M& J6 }# A. t! v
End Sub
- m; }: x7 _3 i$ i0 Q# _8 l g
+ }6 G1 R5 Q; m7 \5 k# s
Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click+ h" M8 d& ?7 q/ Q* o2 C
End '結束程式
' K9 y: L; |/ u, q# j
End Sub, J: P4 R; f- r0 m
1 F4 P4 k$ E' G! e& g$ f2 u
Sub Reset(); E* A0 M) ~' H2 o! q/ x) z
Button1.Left = (Width - Button1.Width) / 2 - 10( J$ z6 F5 ~$ o
Button2.Left = (Width - Button2.Width) / 2 - 10 ?0 Z! q9 Y& A% [7 `3 r) c1 i; n$ T* [
Button3.Left = (Width - Button3.Width) / 2 - 107 n1 \; G. h! d: u$ p7 n8 P$ h, i/ h
Button4.Left = (Width - Button4.Width) / 2 - 10
: D1 P, \7 y( D4 V% `9 j
Button5.Left = (Width - Button5.Width) / 2 - 10. } o3 b& E0 B( i, I, h
Button6.Left = (Width - Button6.Width) / 2 - 10
3 N5 ]! M& E: f* [, g
Button7.Left = (Width - Button7.Width) / 2 - 10
. E. i( N. E9 m
Button8.Left = (Width - Button8.Width) / 2 - 10% K+ o$ F9 f; a- _0 O% g
Button1.Visible = True
, e9 g7 F- T8 t2 j3 |5 [! p6 X) Q
Button2.Visible = True
" ]/ k- t! r- [ ?6 B1 N) ~: \
Button3.Visible = True
3 W/ P) i' h6 L1 }
Button4.Visible = True, Y4 K& ]$ f6 M- X* S6 l
Button5.Visible = True
, z6 C. @5 }- [# z
Button6.Visible = True9 m( Q9 i) L) ^9 |2 Y( @& e
Button7.Visible = True
4 N0 j' O# }; `
Label1.Visible = False, Z: _% D; [) ]' j0 j( {9 k3 r% a2 t
Button8.Visible = False! C8 A% i6 w: y# c$ G
End Sub
) Z/ C# A* Q x
) M9 f8 @; `1 H
Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
) p- _, v1 G& d S: u% V I
Call Reset()6 i( V+ Z* t5 G
End Sub8 u8 D/ p/ a0 B% J; o3 Q- H
End Class
* q1 |- ] z W) A* L9 ~ W5 ~