CarNa遊戲啟動器 改製

; u; }* Y  W3 N* b8 X) J
【檔案名稱】：CarNa遊戲啟動器【檔案格式】：exe
# D" F# x$ K  M3 h: F' V【檔案大小】：1.13 MB
【檔案載點】：>>點此<<
【掃毒報告】：>>點此<<
【檔案資訊】：原作:小夏 改製:雪楓月舞
【備註】：有任何問題歡迎在下方留言^^
【檔案內容】：
/ ^1 Y4 c5 Z4 y  v3 N2 O
【原始碼】：

1. Public Class Form1
   & T+ c5 B' \! z; `1 ?, S7 L* Z1 i
2.     Dim IP As String = "******************" '為保護伺服器不被有心人士 DDOS 不公開 IP
   ( {' j- H" s5 O0 r3 q1 s1 g
3.     Dim Port As String = "****" '為保護伺服器不被有心人士 DDOS 不公開 Port
   
4.     Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
   
5.         Call Reset()
   7 A0 |7 o9 A0 R) o/ h, M6 l
6.     End Sub
   0 r1 V1 ?, |+ N: ?2 j3 p9 N% K
7.     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
   / Q- v  y6 k2 d9 v3 x) L
8.         If My.Computer.FileSystem.FileExists("localhost.exe") Then
   1 _' N; N4 \6 P' ]
9.             Shell("cmd.exe /c " & "Start localhost " & IP & " " & Port, vbHide)
   
10.         Else
    - K# T* `+ L4 O: y: c/ l( Z
11.             MessageBox.Show("無法偵測到 localhost.exe" & vbNewLine & "請關閉防毒並將資料夾排除後解壓縮 localhost.rar", "錯誤", MessageBoxButtons.OK, MessageBoxIcon.Error)
    ( u9 W9 o' `! K7 Y% e- m
12.         End If
    
13.     End Sub
    6 G$ z8 T8 }6 S5 _1 J; d
14. 
    ' _) {: O1 o; l# X- p/ o3 N
15.     Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    0 Y$ o! B; r7 y- Q5 K( y2 M
16.         Button1.Visible = False
    $ y, J6 i$ x( ]8 ^
17.         Button2.Visible = False
    
18.         Button3.Visible = False
    - L7 n: S* R4 K& e
19.         Button4.Visible = False
    
20.         Button5.Visible = False
    
21.         Button6.Visible = False
    # T8 g, J' R, t7 {
22.         Button7.Visible = False
    
23.         Label1.Visible = True
    
24.         Button8.Visible = True
    / f2 f/ s5 m2 z  f5 H
25.     End Sub
    
26. 
    5 [, P/ v: `9 q
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)
    
30.     End Sub
    
31. 
    + [: U2 y, Y/ L
32.     Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
    
33.         '遊戲下載
    $ ]/ Q7 {! s4 s+ f% D3 A
34.         Shell("Rundll32.exe url.dll, FileProtocolHandler https://docs.google.com/uc?id=0B_JKhdsxGLKRSE42TXJQbDRicWs&export=download", vbNormalFocus)
    
35. 
    ! p6 ]# B% t) M8 P
36.     End Sub
    
37. 
    
38.     Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
    
39.         '論壇
    
40.         Shell("Rundll32.exe url.dll, FileProtocolHandler http://twaicl.joinbbs.net/index.php", vbNormalFocus)
    0 U) A0 ?3 E: ~3 Y8 d! T! ~
41.     End Sub
    
42. 
    & Y  M1 ]: w7 c" X- b
43.     Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
    4 n7 R' J/ V$ w7 L) S6 f5 G
44.         '宣傳影片
    
45.         Shell("Rundll32.exe url.dll, FileProtocolHandler https://www.youtube.com/watch?v=K_bciqPTBWg", vbNormalFocus)
    1 _, g! [7 z( z+ j
46.     End Sub
    
47. 
    - E3 y, Z! T" N3 d& [% F% J
48.     Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
    
49.         End '結束程式
    0 w1 E4 M5 ]7 p8 m1 q% Y' d( ?
50.     End Sub
    
51. 
    & Z6 k8 v* R4 D8 c( P( x8 v
52.     Sub Reset()
    
53.         Button1.Left = (Width - Button1.Width) / 2 - 10
    , a9 a1 V6 Y8 E' o
54.         Button2.Left = (Width - Button2.Width) / 2 - 10
    2 a( W/ @; y( ~2 }( Z+ W
55.         Button3.Left = (Width - Button3.Width) / 2 - 10
    
56.         Button4.Left = (Width - Button4.Width) / 2 - 10
    
57.         Button5.Left = (Width - Button5.Width) / 2 - 10
    
58.         Button6.Left = (Width - Button6.Width) / 2 - 10
    
59.         Button7.Left = (Width - Button7.Width) / 2 - 10
    
60.         Button8.Left = (Width - Button8.Width) / 2 - 10
    / X' B  S. `- _0 x& O5 a  R/ _
61.         Button1.Visible = True
    
62.         Button2.Visible = True
    
63.         Button3.Visible = True
    5 t! o6 y0 E8 k; M. n' u& S/ h- e
64.         Button4.Visible = True
    ' ]$ F' Z% b' ^& U% @
65.         Button5.Visible = True
    8 V7 n: L' \$ r9 r" N; j+ J
66.         Button6.Visible = True
    
67.         Button7.Visible = True
    - b/ i. _) [' `5 U8 Y. V
68.         Label1.Visible = False
    
69.         Button8.Visible = False
    8 T) v7 i, e. U. O. S2 P6 Q
70.     End Sub
      K  ^: F" H0 A' u9 L
71. 
    
72.     Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
    * ]0 T) Z5 j- @% \* T
73.         Call Reset()
    ' C& D* a& c6 @$ p4 u
74.     End Sub
    
75. End Class
    

複製代碼

共收到 0 A幣

我要打賞

打賞榜

查看更多>>

暫無

捷足先登

暫無

捷足先登

暫無

捷足先登

暫無

----

暫無

----

暫無

----

暫無

----