CarNa遊戲啟動器改製

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

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

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

【原始碼】：

Public Class Form1
% R; G, ?9 W: Y8 W9 ~
Dim IP As String = "******************" '為保護伺服器不被有心人士 DDOS 不公開 IP
% d6 ~, u! q$ y+ V
Dim Port As String = "****" '為保護伺服器不被有心人士 DDOS 不公開 Port
9 P) y- b# L5 L1 Z9 s# G" }4 q4 \5 I
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
; G$ U8 A( }8 `
Call Reset()
* L3 y* K: F, g# B$ p6 O8 G- X+ }/ k
End Sub
1 D; E. s% _" P3 P1 k2 F! c% D9 H+ ]0 e
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click0 k& }4 e$ R: d' `
If My.Computer.FileSystem.FileExists("localhost.exe") Then% C( }" C! x: W4 L
Shell("cmd.exe /c " & "Start localhost " & IP & " " & Port, vbHide)
. c# f( X1 A% T7 N( X% Y
Else
! L r9 H$ j: @* m
MessageBox.Show("無法偵測到 localhost.exe" & vbNewLine & "請關閉防毒並將資料夾排除後解壓縮 localhost.rar", "錯誤", MessageBoxButtons.OK, MessageBoxIcon.Error)3 h; U0 L/ d" q) y$ g8 @/ P: T
End If3 O, {% `/ `# O1 ?
End Sub3 r) {- x: i+ f4 y; E7 [2 @: p
: }; y2 u& x+ D: r- X) X, |
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click. q- ?+ l. l& m
Button1.Visible = False
. k5 O* ^5 a" l0 x, K7 n
Button2.Visible = False
5 o" R. [1 {( Q- k; y4 J, G: L
Button3.Visible = False% J4 m( @& U& e3 V" _, T
Button4.Visible = False- B' p+ L7 K+ s& b3 P
Button5.Visible = False& j5 d7 _2 o9 s# p& L
Button6.Visible = False- i: y& V, E% v* @4 `0 P
Button7.Visible = False3 h0 D- L+ Y2 ?2 t
Label1.Visible = True
- k' \7 M$ R2 N' h
Button8.Visible = True
3 c9 N* G$ t: w- r
End Sub& o) P1 |7 _1 g$ d: ^# f
+ h$ N1 r/ f- R- w
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click% j! o/ x A+ U. u- T1 c# k
'帳號註冊
Shell("Rundll32.exe url.dll, FileProtocolHandler https://docs.google.com/forms/d/e/1FAIpQLSfpphD3cDtFCiayoOidc1TE0GLHL6TquEsempTlMRQYN5hZ4g/viewform", vbNormalFocus)- P' ]) z! i0 c% W* a8 k6 c
End Sub7 n* Y( e g0 I/ _5 r! [
4 [% r3 \$ u/ ^. E4 e! e/ \; m6 }
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click; H" b; ?$ L* \* V5 t! s
'遊戲下載
9 S: V; ^+ ?; ~! J$ B
Shell("Rundll32.exe url.dll, FileProtocolHandler https://docs.google.com/uc?id=0B_JKhdsxGLKRSE42TXJQbDRicWs&export=download", vbNormalFocus)
u x8 N" \" z8 q9 ~8 R! t* v
0 L6 s% v/ V9 n! B* L' R6 M" l
End Sub
) k1 k7 g) b3 r. x4 Q2 Z
* a {$ D; Y4 N5 n$ I9 k+ u
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click) A! N# j) X4 }5 t
'論壇
3 u- O. ]) L3 q" G! ]
Shell("Rundll32.exe url.dll, FileProtocolHandler http://twaicl.joinbbs.net/index.php", vbNormalFocus). n B' p; N- h5 z* ~
End Sub
f, b+ }0 ]& l2 _8 u$ a
8 s$ a) z5 y8 N" E% }, d
Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
'宣傳影片7 _8 t; L# J8 T8 v8 b) x) z/ S
Shell("Rundll32.exe url.dll, FileProtocolHandler https://www.youtube.com/watch?v=K_bciqPTBWg", vbNormalFocus)
& i! U! `, C. U" Z# k
End Sub. k- B, m, l3 @ j3 p
2 V% I/ P+ ` c
Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click+ A# \+ ?3 n5 F: G Q
End '結束程式, L( K$ g6 r7 X b
End Sub
! |1 u2 D' a& K6 T! w) K
; a7 E T( E& a, d, u1 P
Sub Reset()
$ H& |% w" G6 G+ U+ G
Button1.Left = (Width - Button1.Width) / 2 - 10: p' F5 O! Y9 y5 ?; q
Button2.Left = (Width - Button2.Width) / 2 - 10& D! w* Q5 ^( M
Button3.Left = (Width - Button3.Width) / 2 - 10' {# J3 P4 R% \7 r9 b
Button4.Left = (Width - Button4.Width) / 2 - 105 w3 R- b9 R/ d( h% C9 n
Button5.Left = (Width - Button5.Width) / 2 - 10
. I0 R y ~! [; N: [ c8 }, L
Button6.Left = (Width - Button6.Width) / 2 - 10# X1 |5 n7 D/ ]: u( }7 a/ h
Button7.Left = (Width - Button7.Width) / 2 - 10- B* v: e. z% K% q) t" e/ |
Button8.Left = (Width - Button8.Width) / 2 - 10
& e" Q+ W/ T$ _
Button1.Visible = True
! l0 G$ ]- |! H! F' ]. |
Button2.Visible = True' G2 R7 M% Q' o+ j5 f5 @
Button3.Visible = True/ V- S0 X& b g6 h \- R# e- x( C
Button4.Visible = True J5 B9 @; `2 K7 L
Button5.Visible = True
- d7 J2 x/ n+ p! P2 w/ |
Button6.Visible = True8 ~+ O6 X; f( S2 L
Button7.Visible = True
0 e7 ?* G2 ^; v! H' v+ ]
Label1.Visible = False
; I8 y; x8 `7 q
Button8.Visible = False# k0 [7 e1 k d/ F* R# h
End Sub. T# ^# g: k5 v0 `; h
6 J9 U% P9 C3 D
Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click: e9 z7 l8 C/ ~3 q
Call Reset()# v- x: [6 w; a! U4 S8 d* u
End Sub
: I1 C/ D$ a4 {. f+ b
End Class$ _% |$ P% k- l: @ j