CarNa遊戲啟動器 改製

. g2 {% K# {$ M9 p【檔案名稱】：CarNa遊戲啟動器【檔案格式】：exe
* {# s: j" [8 |* ?3 D- R+ M【檔案大小】：1.13 MB
【檔案載點】：>>點此<<
【掃毒報告】：>>點此<<
) p( }/ b0 Y. M4 I- D8 O, v8 `【檔案資訊】：原作:小夏 改製:雪楓月舞
, h4 j8 Z8 L$ K. C5 M) S; D【備註】：有任何問題歡迎在下方留言^^
$ v* x; Q4 C# x6 S$ N5 a: Q$ G; [【檔案內容】：
2 E7 E& z2 O9 ^" [
【原始碼】：

1. Public Class Form1
   # O: x) a5 U( Y- d% M5 k
2.     Dim IP As String = "******************" '為保護伺服器不被有心人士 DDOS 不公開 IP
   
3.     Dim Port As String = "****" '為保護伺服器不被有心人士 DDOS 不公開 Port
   
4.     Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
   
5.         Call Reset()
   " h+ ~" W% ]) p: G
6.     End Sub
   / K! Z( h9 m- z) ~4 H7 y: p
7.     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
   4 f) i9 \/ ~0 G8 ~' r
8.         If My.Computer.FileSystem.FileExists("localhost.exe") Then
   
9.             Shell("cmd.exe /c " & "Start localhost " & IP & " " & Port, vbHide)
   
10.         Else
    
11.             MessageBox.Show("無法偵測到 localhost.exe" & vbNewLine & "請關閉防毒並將資料夾排除後解壓縮 localhost.rar", "錯誤", MessageBoxButtons.OK, MessageBoxIcon.Error)
      _3 K" X1 N) G  h1 }4 M  W( v
12.         End If
    
13.     End Sub
    7 c! N3 w1 U9 V9 i6 i
14. 
    0 M; K/ S* |" A- r* D9 T- H5 i
15.     Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    
16.         Button1.Visible = False
    , ]3 q8 u  f" r2 D
17.         Button2.Visible = False
    
18.         Button3.Visible = False
    7 f, X0 _, \8 H
19.         Button4.Visible = False
    
20.         Button5.Visible = False
    
21.         Button6.Visible = False
    
22.         Button7.Visible = False
    2 F& W1 h% a2 k2 i- m
23.         Label1.Visible = True
    4 |& _0 p% u% [/ j7 Y( y
24.         Button8.Visible = True
    
25.     End Sub
    
26. 
    5 j: x6 W; P0 a# @) ~
27.     Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
    
28.         '帳號註冊
    
29.         Shell("Rundll32.exe url.dll, FileProtocolHandler https://docs.google.com/forms/d/e/1FAIpQLSfpphD3cDtFCiayoOidc1TE0GLHL6TquEsempTlMRQYN5hZ4g/viewform", vbNormalFocus)
    1 Z2 N7 g  y0 Z  L- w
30.     End Sub
    
31. 
    
32.     Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
    ' U5 I6 N% U" J" t( G2 l
33.         '遊戲下載
    3 J6 W4 x/ g9 q2 q% ^$ f
34.         Shell("Rundll32.exe url.dll, FileProtocolHandler https://docs.google.com/uc?id=0B_JKhdsxGLKRSE42TXJQbDRicWs&export=download", vbNormalFocus)
    
35. 
    
36.     End Sub
    7 B: S) x5 {, X7 C6 o4 f( n
37. 
    , v7 l7 r5 P5 d8 e
38.     Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
    ( j' k7 N* f( ?8 j3 O: l* k$ u
39.         '論壇
    ( E0 V3 M2 ^. h/ k' g: g
40.         Shell("Rundll32.exe url.dll, FileProtocolHandler http://twaicl.joinbbs.net/index.php", vbNormalFocus)
    5 C! m" u& x9 q1 t9 k( g
41.     End Sub
    
42. 
    " C* n/ ?6 I  R: g4 l8 i( C
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
    
47. 
    ( h6 n" B) Q# s1 z+ P
48.     Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
    $ @) o2 w* H- G  I+ g1 h& C4 r; z+ N; z
49.         End '結束程式
    
50.     End Sub
    5 z7 t. O1 ?+ N! A+ Z# i2 H1 r+ y
51. 
    9 M; O. |0 L. I3 @3 N( l- W, l
52.     Sub Reset()
    # a/ R2 g$ |1 W
53.         Button1.Left = (Width - Button1.Width) / 2 - 10
    
54.         Button2.Left = (Width - Button2.Width) / 2 - 10
    + v# L/ [; N( V* X. c% [
55.         Button3.Left = (Width - Button3.Width) / 2 - 10
    
56.         Button4.Left = (Width - Button4.Width) / 2 - 10
    
57.         Button5.Left = (Width - Button5.Width) / 2 - 10
      V" w6 Z) r) k: F
58.         Button6.Left = (Width - Button6.Width) / 2 - 10
    ! f6 E  N5 Z% w3 N
59.         Button7.Left = (Width - Button7.Width) / 2 - 10
    ( \( ^0 D; H7 }: }: R
60.         Button8.Left = (Width - Button8.Width) / 2 - 10
    8 V: D9 B, t; m
61.         Button1.Visible = True
    
62.         Button2.Visible = True
    
63.         Button3.Visible = True
    % F* G7 C! J5 h5 a# t5 E/ F1 E4 z1 P
64.         Button4.Visible = True
    # q9 o0 R' Q5 Y1 Q+ B
65.         Button5.Visible = True
    
66.         Button6.Visible = True
    
67.         Button7.Visible = True
    $ {9 w4 B7 e+ a
68.         Label1.Visible = False
    
69.         Button8.Visible = False
    
70.     End Sub
    * }: y! p" X' A6 ^
71. 
    3 M# K3 U2 j% H4 m+ b
72.     Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
    
73.         Call Reset()
    2 ~+ M+ e8 y' E; o$ y! F- @/ _
74.     End Sub
    / c# s5 i$ s5 D! b3 j
75. End Class
    

複製代碼

共收到 0 A幣

我要打賞

打賞榜

查看更多>>

暫無

捷足先登

暫無

捷足先登

暫無

捷足先登

暫無

----

暫無

----

暫無

----

暫無

----