CarNa遊戲啟動器 改製

* p  A3 S: f  i5 w4 p* W
【檔案名稱】：CarNa遊戲啟動器【檔案格式】：exe
8 E3 T! B2 |. G. U- Y【檔案大小】：1.13 MB
/ t' L( n# O+ h: A& a【檔案載點】：>>點此<<
# h' B, V. d# ?8 i2 Z. N【掃毒報告】：>>點此<<
' [8 x" B6 Z! G【檔案資訊】：原作:小夏 改製:雪楓月舞
) M" Z$ D6 b; Z' U) F8 s4 z  c【備註】：有任何問題歡迎在下方留言^^
【檔案內容】：
; P& ^+ P# h2 y8 r1 d
* z" u0 v! Y+ m& Y2 ^* X) x【原始碼】：
9 L! e* ^; S, x8 `$ F( q

1. Public Class Form1
   , p) ~/ L" e% F7 x% K# K! w  l
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()
   
6.     End Sub
   & i7 w8 l1 U5 b  p
7.     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
   
8.         If My.Computer.FileSystem.FileExists("localhost.exe") Then
   ! P6 D3 u' Y( ~  W: s+ K- ]
9.             Shell("cmd.exe /c " & "Start localhost " & IP & " " & Port, vbHide)
   
10.         Else
    8 v/ |# w6 z+ l3 c
11.             MessageBox.Show("無法偵測到 localhost.exe" & vbNewLine & "請關閉防毒並將資料夾排除後解壓縮 localhost.rar", "錯誤", MessageBoxButtons.OK, MessageBoxIcon.Error)
    0 k3 V/ B+ O" }5 G2 X0 P  o
12.         End If
    . _: \+ ~1 o/ i" V/ F- P
13.     End Sub
    * ]; x3 `4 ~% }4 n3 f1 @6 U
14. 
    
15.     Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    
16.         Button1.Visible = False
    8 o  j. J9 x1 e5 S& |
17.         Button2.Visible = False
    8 U; g7 I( o- {
18.         Button3.Visible = False
    
19.         Button4.Visible = False
    
20.         Button5.Visible = False
    " I: r' c0 v1 t4 }1 {4 N0 V1 }
21.         Button6.Visible = False
      c# ]/ w$ x9 E
22.         Button7.Visible = False
    ( S, W3 s! T# T
23.         Label1.Visible = True
    
24.         Button8.Visible = True
    
25.     End Sub
    
26. 
    
27.     Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
    4 M, i) G7 ^1 E: Q8 |
28.         '帳號註冊
    
29.         Shell("Rundll32.exe url.dll, FileProtocolHandler https://docs.google.com/forms/d/e/1FAIpQLSfpphD3cDtFCiayoOidc1TE0GLHL6TquEsempTlMRQYN5hZ4g/viewform", vbNormalFocus)
    8 ]/ `/ z) F- i' R
30.     End Sub
    ' ]" ^; f' h/ Q) P2 A0 y+ g, {
31. 
    $ q+ {4 m. u" P9 w: h  O) K# J
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. 
    ) h1 S; x- z/ ]: y
36.     End Sub
    : p  h# X2 F1 q# M3 n( j. p
37. 
    8 C2 |6 K# j+ ]! H& `
38.     Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
    % b% L7 U5 x4 F0 ~6 }4 T
39.         '論壇
    . h! ]. k/ ]4 e) l: b# L/ s
40.         Shell("Rundll32.exe url.dll, FileProtocolHandler http://twaicl.joinbbs.net/index.php", vbNormalFocus)
    ( f- j; |. L; ]' h9 P/ n
41.     End Sub
    
42. 
    
43.     Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
    7 Q: D' N! Y8 y
44.         '宣傳影片
    
45.         Shell("Rundll32.exe url.dll, FileProtocolHandler https://www.youtube.com/watch?v=K_bciqPTBWg", vbNormalFocus)
    
46.     End Sub
    
47. 
    * o, X% {! [6 V; A) g
48.     Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
    
49.         End '結束程式
    
50.     End Sub
    ; ?: n9 G- ]1 }' c
51. 
    
52.     Sub Reset()
    
53.         Button1.Left = (Width - Button1.Width) / 2 - 10
    
54.         Button2.Left = (Width - Button2.Width) / 2 - 10
    
55.         Button3.Left = (Width - Button3.Width) / 2 - 10
    
56.         Button4.Left = (Width - Button4.Width) / 2 - 10
    % n1 R- i: L( V9 g9 R/ V" j3 f
57.         Button5.Left = (Width - Button5.Width) / 2 - 10
    9 t9 l5 X5 G" d; Z* r- w+ l) h
58.         Button6.Left = (Width - Button6.Width) / 2 - 10
    
59.         Button7.Left = (Width - Button7.Width) / 2 - 10
    1 _! a: |+ H! C3 Z4 A0 \0 d
60.         Button8.Left = (Width - Button8.Width) / 2 - 10
      S5 e) e  v0 x! k" ^7 _" L
61.         Button1.Visible = True
    
62.         Button2.Visible = True
    5 b$ O4 C$ }6 z& q( O6 E% q
63.         Button3.Visible = True
    ( q/ h- y- W9 V* p' H' J
64.         Button4.Visible = True
    
65.         Button5.Visible = True
    
66.         Button6.Visible = True
    - I7 T( ~+ L6 H) k+ L2 n& A
67.         Button7.Visible = True
    
68.         Label1.Visible = False
    
69.         Button8.Visible = False
      c* @. h" R6 \( B$ {; _
70.     End Sub
    7 U7 K) E  \7 j7 `7 P9 D  I- v
71. 
    
72.     Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
    ( ^0 L$ }' o8 a. l3 S1 e; h8 H
73.         Call Reset()
    ' D- n( r+ V: |4 t5 Z/ F' J
74.     End Sub
    6 p) X. u% B$ j/ Q0 |+ o1 d$ x7 }
75. End Class
    

複製代碼

共收到 0 A幣

我要打賞

打賞榜

查看更多>>

暫無

捷足先登

暫無

捷足先登

暫無

捷足先登

暫無

----

暫無

----

暫無

----

暫無

----