CarNa遊戲啟動器 改製

【檔案名稱】：CarNa遊戲啟動器【檔案格式】：exe
, B" S+ M7 C; g" @/ V1 v. |【檔案大小】：1.13 MB
【檔案載點】：>>點此<<
- j9 n& o. @' D# |5 ?# |# E【掃毒報告】：>>點此<<
【檔案資訊】：原作:小夏 改製:雪楓月舞
【備註】：有任何問題歡迎在下方留言^^
【檔案內容】：

: T, t- \# E6 y& ?; z- ~& a【原始碼】：

1. Public Class Form1
   - C: T' x- ?: {! M  D. h$ S
2.     Dim IP As String = "******************" '為保護伺服器不被有心人士 DDOS 不公開 IP
   ' W* H- D. w( r9 s/ w
3.     Dim Port As String = "****" '為保護伺服器不被有心人士 DDOS 不公開 Port
   2 c# q! r8 J( }0 T
4.     Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
   " H7 s; H; X4 V( s+ y+ _1 ~/ d7 J
5.         Call Reset()
   ( h2 ^, Z. t- f* _
6.     End Sub
   9 h2 B7 V4 v* f) F. a0 A
7.     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
   ) A8 h! V& o6 G7 S6 S0 q
8.         If My.Computer.FileSystem.FileExists("localhost.exe") Then
   
9.             Shell("cmd.exe /c " & "Start localhost " & IP & " " & Port, vbHide)
   & O, M' t# W3 E: C/ }
10.         Else
    / M9 x/ V/ X' r! C* k9 l8 B. n; w
11.             MessageBox.Show("無法偵測到 localhost.exe" & vbNewLine & "請關閉防毒並將資料夾排除後解壓縮 localhost.rar", "錯誤", MessageBoxButtons.OK, MessageBoxIcon.Error)
    4 G8 q$ K- V+ ], m& S& n
12.         End If
    
13.     End Sub
    1 f0 H2 y% e- a: X( x
14. 
    
15.     Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    
16.         Button1.Visible = False
    
17.         Button2.Visible = False
    
18.         Button3.Visible = False
    
19.         Button4.Visible = False
    # W+ m3 f9 v2 g0 K( m; o* R# j3 b" }4 W
20.         Button5.Visible = False
      X$ z6 I# w0 }5 V/ i% f3 D; a
21.         Button6.Visible = False
    
22.         Button7.Visible = False
    
23.         Label1.Visible = True
    " g1 Y$ K$ b6 X' b5 h
24.         Button8.Visible = True
    
25.     End Sub
    ; s/ e4 v3 W1 S! t
26. 
    
27.     Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
    
28.         '帳號註冊
    ! V7 d' g5 Y% N' ]8 j
29.         Shell("Rundll32.exe url.dll, FileProtocolHandler https://docs.google.com/forms/d/e/1FAIpQLSfpphD3cDtFCiayoOidc1TE0GLHL6TquEsempTlMRQYN5hZ4g/viewform", vbNormalFocus)
    * v6 K( |2 K: W* o. N* B1 z$ P* F
30.     End Sub
    
31. 
    
32.     Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
    
33.         '遊戲下載
    
34.         Shell("Rundll32.exe url.dll, FileProtocolHandler https://docs.google.com/uc?id=0B_JKhdsxGLKRSE42TXJQbDRicWs&export=download", vbNormalFocus)
    
35. 
    
36.     End Sub
    
37. 
    
38.     Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
    & |/ F, o, k5 f. g# L; Q- }* |
39.         '論壇
    , k' B6 J$ o' j6 p/ X* P5 C
40.         Shell("Rundll32.exe url.dll, FileProtocolHandler http://twaicl.joinbbs.net/index.php", vbNormalFocus)
    
41.     End Sub
    # O5 o% p7 ~8 E0 }6 z+ M7 L8 _; s) ?8 x
42. 
    ' Z+ B! F) g5 G1 F4 z& x! M
43.     Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
    
44.         '宣傳影片
    
45.         Shell("Rundll32.exe url.dll, FileProtocolHandler https://www.youtube.com/watch?v=K_bciqPTBWg", vbNormalFocus)
    
46.     End Sub
    8 _/ J# q" O( O" B
47. 
    / P# Z" }: j4 A
48.     Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
    
49.         End '結束程式
    
50.     End Sub
    
51. 
    
52.     Sub Reset()
    ' B( N! C/ z' U. z) f  T
53.         Button1.Left = (Width - Button1.Width) / 2 - 10
    # B) K) C) `: x& }
54.         Button2.Left = (Width - Button2.Width) / 2 - 10
    : F" ^7 }! k8 c$ c# r
55.         Button3.Left = (Width - Button3.Width) / 2 - 10
    
56.         Button4.Left = (Width - Button4.Width) / 2 - 10
    
57.         Button5.Left = (Width - Button5.Width) / 2 - 10
    % h6 j- P/ p. X9 [
58.         Button6.Left = (Width - Button6.Width) / 2 - 10
    
59.         Button7.Left = (Width - Button7.Width) / 2 - 10
    
60.         Button8.Left = (Width - Button8.Width) / 2 - 10
    
61.         Button1.Visible = True
    
62.         Button2.Visible = True
    
63.         Button3.Visible = True
    : B, a3 m5 z1 Y
64.         Button4.Visible = True
    
65.         Button5.Visible = True
    " a' Z3 E/ _+ n2 Q' D/ E# E9 l
66.         Button6.Visible = True
    . q3 }) A! c: `' {
67.         Button7.Visible = True
    . i! z: X2 i2 b/ h' e1 h. z) w
68.         Label1.Visible = False
    
69.         Button8.Visible = False
    ) j# p: P! S: o" N
70.     End Sub
    - Z/ G0 c# h7 F
71. 
    
72.     Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
    , \/ ]5 \+ e. S# r$ U9 ]
73.         Call Reset()
    
74.     End Sub
    6 u! ~  H" b' F, `2 }. M. e
75. End Class
    ! ]1 ^7 ^! \& [4 B: J

複製代碼

共收到 0 A幣

我要打賞

打賞榜

查看更多>>

暫無

捷足先登

暫無

捷足先登

暫無

捷足先登

暫無

----

暫無

----

暫無

----

暫無

----