CarNa遊戲啟動器改製

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

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

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

【原始碼】：

Public Class Form1
`- B6 `0 ~+ }
Dim IP As String = "******************" '為保護伺服器不被有心人士 DDOS 不公開 IP
: `. |! C _ O8 ~: ~5 s' |" d
Dim Port As String = "****" '為保護伺服器不被有心人士 DDOS 不公開 Port
F0 ?1 O% i6 K# F0 @, h; V+ j
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
2 c& B4 Y1 h5 `1 T9 a
Call Reset()- [6 i" P/ N- ^
End Sub
; M0 w8 s) ^9 e Y) I! m
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
% f/ T2 o8 v/ e r- S9 q9 |% _& e
If My.Computer.FileSystem.FileExists("localhost.exe") Then
0 s8 I2 e% M( d7 i0 X
Shell("cmd.exe /c " & "Start localhost " & IP & " " & Port, vbHide)/ ]- w8 r9 [" c; U0 f
Else4 n+ C* t5 N6 t! \ k
MessageBox.Show("無法偵測到 localhost.exe" & vbNewLine & "請關閉防毒並將資料夾排除後解壓縮 localhost.rar", "錯誤", MessageBoxButtons.OK, MessageBoxIcon.Error) q- ^5 F0 o7 j6 k
End If
4 I$ G1 N2 E, S0 n! f7 `
End Sub
& j) }; [3 Y5 O: I* M% w0 P: x
5 ^ L+ C( P( j, k- d
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
3 _6 J' ^; D+ z" B; S# @
Button1.Visible = False; E9 o% l$ C$ a4 V& K" P
Button2.Visible = False' p; K* d$ q& O, ]; I6 [. q+ B
Button3.Visible = False
, Q. N! q8 v( [1 ^/ Q" R$ [
Button4.Visible = False
h, }2 t! M; `6 I: [+ t2 L$ \4 C
Button5.Visible = False
, Y6 |3 K9 c* u, L! q5 F, a0 [
Button6.Visible = False2 H8 r6 Q7 H) w5 e4 u
Button7.Visible = False
* s# W A% x+ O7 [$ A/ p/ Q) K
Label1.Visible = True
5 Z1 }9 W' @4 N, w6 U
Button8.Visible = True
% T& F" R6 T+ n; ?+ u1 r
End Sub
{9 b6 Q0 P6 r4 d6 u, b. v& i* N4 _
, f6 k5 {9 ?$ {5 M. a: l
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click0 Z: D* ?+ L* k2 L+ A
'帳號註冊
: }3 U9 q( j5 Z9 F' \, }) S( ^
Shell("Rundll32.exe url.dll, FileProtocolHandler https://docs.google.com/forms/d/e/1FAIpQLSfpphD3cDtFCiayoOidc1TE0GLHL6TquEsempTlMRQYN5hZ4g/viewform", vbNormalFocus)
' ~- U7 x5 C) X% {( m
End Sub
2 b# @2 |9 u5 u% W8 C% S
; ^2 f; _: Y) M
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
% Y# w8 |& O: C( B7 T- l
'遊戲下載
- r* {) M! a- p
Shell("Rundll32.exe url.dll, FileProtocolHandler https://docs.google.com/uc?id=0B_JKhdsxGLKRSE42TXJQbDRicWs&export=download", vbNormalFocus)
' e3 ?& F5 o& v% O- b
$ ]7 ?6 }7 {2 u2 c B( k0 [ O& v
End Sub
" ^' D% d; T8 E* h
2 G- W2 q; O7 a! _& b
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
* I& }6 |6 \0 `+ y9 y. d( n
'論壇% ~) R1 J) x R' ]; ^
Shell("Rundll32.exe url.dll, FileProtocolHandler http://twaicl.joinbbs.net/index.php", vbNormalFocus)
4 X5 U) X* y0 Q2 ]" B. d O, T
End Sub
' f! w: T" G1 d
( `1 q( D" t# W) I5 y; a
Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
+ x% V* g4 p/ y+ w
'宣傳影片
$ u9 I: B9 t* @3 b& J: D0 i" \
Shell("Rundll32.exe url.dll, FileProtocolHandler https://www.youtube.com/watch?v=K_bciqPTBWg", vbNormalFocus)4 D; [/ L" @! t) b
End Sub& } J4 {( p" v! ~2 p
* E& z9 k/ L, c) p9 Z b4 A6 E
Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click, ~: m# H; F# f K- ]
End '結束程式
End Sub
, a- o+ L) u: e+ H& H, S+ o- K
2 h3 _* j1 ]# e9 @8 p! d' ^8 k
Sub Reset()
4 S, y0 |+ O/ z$ v. B
Button1.Left = (Width - Button1.Width) / 2 - 10$ q- _$ g2 O( s7 ` B
Button2.Left = (Width - Button2.Width) / 2 - 10& n( H8 L; R* t$ J3 N' `
Button3.Left = (Width - Button3.Width) / 2 - 10
, {$ \* L# P. E' r+ _3 Z
Button4.Left = (Width - Button4.Width) / 2 - 104 @' S" a! `, P. S
Button5.Left = (Width - Button5.Width) / 2 - 10
5 A; c9 w! Z9 o* Y8 E
Button6.Left = (Width - Button6.Width) / 2 - 10' Y; X) \+ i: `+ ]% B
Button7.Left = (Width - Button7.Width) / 2 - 10( }$ ]) b+ n% Q1 G
Button8.Left = (Width - Button8.Width) / 2 - 10
$ I$ j: }% t) l/ B4 y
Button1.Visible = True
2 T& v6 N7 D. @- C
Button2.Visible = True+ s5 U8 p- J4 c8 b5 w" ~
Button3.Visible = True, v0 N& ^( z5 ]
Button4.Visible = True
6 q; O& E8 i- Q& h" q: d! [! Q
Button5.Visible = True
; z/ z* j- [4 o# }
Button6.Visible = True
$ d3 W+ e9 d8 T' o# e
Button7.Visible = True! c3 j& P3 b, p9 I
Label1.Visible = False
+ G% |+ Z% ]9 \9 T$ T
Button8.Visible = False/ z( b ] m/ v& L) j/ {
End Sub* [3 K* t1 s- E* {4 B; c: K' {" m
! ^+ I5 R* J: [* k6 ?" F
Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
5 C3 Y# t0 H& _; L
Call Reset()" Y& j) c# r0 a1 d
End Sub
4 f1 _5 F+ l( s) r) t/ W
End Class- x4 h# O( ]% ^3 p+ e) Y' b& x