CarNa遊戲啟動器 改製

' z% ^% \+ `8 c  V
【檔案名稱】：CarNa遊戲啟動器【檔案格式】：exe
0 J: X0 d  Y* b$ p0 C. _' e$ S【檔案大小】：1.13 MB
【檔案載點】：>>點此<<
【掃毒報告】：>>點此<<
9 P% U5 a9 L5 @【檔案資訊】：原作:小夏 改製:雪楓月舞
【備註】：有任何問題歡迎在下方留言^^
( ]. d; R/ ?- Y3 R. i5 A【檔案內容】：

【原始碼】：

1. Public Class Form1
   & b3 j7 r* q; g7 W+ h" l' Z0 {, b
2.     Dim IP As String = "******************" '為保護伺服器不被有心人士 DDOS 不公開 IP
   
3.     Dim Port As String = "****" '為保護伺服器不被有心人士 DDOS 不公開 Port
   " e4 z* C" e8 I. P" T% h9 i( `
4.     Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
   
5.         Call Reset()
   0 Z/ Q  F) a  H
6.     End Sub
   
7.     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
   + ]# P; w% w1 Z) }
8.         If My.Computer.FileSystem.FileExists("localhost.exe") Then
   
9.             Shell("cmd.exe /c " & "Start localhost " & IP & " " & Port, vbHide)
   
10.         Else
    $ ?6 X( l# \" m
11.             MessageBox.Show("無法偵測到 localhost.exe" & vbNewLine & "請關閉防毒並將資料夾排除後解壓縮 localhost.rar", "錯誤", MessageBoxButtons.OK, MessageBoxIcon.Error)
    + Q0 ?- D3 U* S: o5 Y
12.         End If
    
13.     End Sub
    
14. 
    
15.     Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    
16.         Button1.Visible = False
      _9 p* y  b3 g( ^- O" |# S6 C1 k
17.         Button2.Visible = False
    
18.         Button3.Visible = False
    ' a8 M4 q( d2 G3 K4 `
19.         Button4.Visible = False
      }+ Z2 f2 v" c
20.         Button5.Visible = False
    
21.         Button6.Visible = False
      F3 D0 n, ]  v/ S
22.         Button7.Visible = False
    - J! y/ e8 k. o$ C
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
    
28.         '帳號註冊
    
29.         Shell("Rundll32.exe url.dll, FileProtocolHandler https://docs.google.com/forms/d/e/1FAIpQLSfpphD3cDtFCiayoOidc1TE0GLHL6TquEsempTlMRQYN5hZ4g/viewform", vbNormalFocus)
    ' Y6 \8 _1 Q% V* Y/ ^
30.     End Sub
    * C$ R9 q- K3 S% J1 N
31. 
    . X& {' {' M# B0 u. K- x- `
32.     Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
    . Y# ?8 a8 s) _8 R+ D" ^2 E8 w
33.         '遊戲下載
    & w; U3 _$ |& @# \6 ~$ U
34.         Shell("Rundll32.exe url.dll, FileProtocolHandler https://docs.google.com/uc?id=0B_JKhdsxGLKRSE42TXJQbDRicWs&export=download", vbNormalFocus)
    2 D( V. t- x+ ~! t& \; V
35. 
    
36.     End Sub
    4 `6 {6 u- ?" R& J4 G1 ~' \
37. 
    ; |' D. Q& Y7 K  g& U' \" o5 P; ?0 S
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)
    % L* f: @2 F+ g: }7 `
41.     End Sub
    
42. 
    
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)
    * P* ?. b; G  d# o
46.     End Sub
    ' T7 O# F! v/ s; C  U
47. 
    3 D, v! U+ y/ {  {8 v9 V' Q
48.     Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
    
49.         End '結束程式
    8 L" E% Q7 n' \+ e7 i
50.     End Sub
    
51. 
    ' N, m7 H3 u  X) A6 E  O$ [
52.     Sub Reset()
    0 ~) ~3 U% ^* Y' k
53.         Button1.Left = (Width - Button1.Width) / 2 - 10
    7 k& O& @6 c* p, c& I
54.         Button2.Left = (Width - Button2.Width) / 2 - 10
    ) i' F' C  V2 c' [
55.         Button3.Left = (Width - Button3.Width) / 2 - 10
      d& D2 A3 E2 a+ w7 U' J8 @
56.         Button4.Left = (Width - Button4.Width) / 2 - 10
    , y/ s- y; ~9 t4 l. i0 m
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
    
61.         Button1.Visible = True
    
62.         Button2.Visible = True
    
63.         Button3.Visible = True
    
64.         Button4.Visible = True
    
65.         Button5.Visible = True
    / K  J6 Y) f2 V* E  p1 J
66.         Button6.Visible = True
    / T; X) H( D2 H! c
67.         Button7.Visible = True
    
68.         Label1.Visible = False
    
69.         Button8.Visible = False
    + I/ u, M  K* H* `1 N; w( w5 j
70.     End Sub
    0 e: k  C- P* h, w. S( b0 I
71. 
    " }2 x- z! I1 ]# X* ?8 k. o; l; H0 t
72.     Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
    7 T  E7 x) `" @( m
73.         Call Reset()
    7 d' U! S$ D4 a
74.     End Sub
    1 u6 k0 I6 u& e1 C! I) a8 [1 {
75. End Class
    . N; L/ ?; |- d$ W# |' w& A

複製代碼

共收到 0 A幣

我要打賞

打賞榜

查看更多>>

暫無

捷足先登

暫無

捷足先登

暫無

捷足先登

暫無

----

暫無

----

暫無

----

暫無

----