CarNa遊戲啟動器 改製

8 u& @2 S0 F  ?5 p4 g1 d【檔案名稱】：CarNa遊戲啟動器【檔案格式】：exe
% u# E- S% ~+ w8 V【檔案大小】：1.13 MB
  |# `( [; _2 [$ w【檔案載點】：>>點此<<
' m; p+ _  I. s. x' `5 D: G【掃毒報告】：>>點此<<
【檔案資訊】：原作:小夏 改製:雪楓月舞
$ ^7 a4 w4 G* l& g: D; k2 u【備註】：有任何問題歡迎在下方留言^^
' c; z* }; Z  T% @1 c6 [& z【檔案內容】：

7 A( z$ o* p6 a4 P1 J7 ?【原始碼】：

1. Public Class Form1
   4 I! b# K2 J: ]$ V- ~  w8 Y, V
2.     Dim IP As String = "******************" '為保護伺服器不被有心人士 DDOS 不公開 IP
   
3.     Dim Port As String = "****" '為保護伺服器不被有心人士 DDOS 不公開 Port
   5 y$ R7 H3 v- k! l* g5 l- M/ k9 M
4.     Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
   
5.         Call Reset()
   2 j+ L/ E  D3 u/ ~! M' z% e0 N
6.     End Sub
   
7.     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
   
8.         If My.Computer.FileSystem.FileExists("localhost.exe") Then
   ) c4 X% T8 R) d5 W# J- N8 N7 k7 z
9.             Shell("cmd.exe /c " & "Start localhost " & IP & " " & Port, vbHide)
   2 `% Y5 V. [* ?' F" q
10.         Else
    2 j+ a* k8 u" r9 E/ V7 W) A
11.             MessageBox.Show("無法偵測到 localhost.exe" & vbNewLine & "請關閉防毒並將資料夾排除後解壓縮 localhost.rar", "錯誤", MessageBoxButtons.OK, MessageBoxIcon.Error)
    4 j( o+ Y' d% Q. w- D# Z3 i
12.         End If
    $ o1 x' i8 o9 a; T
13.     End Sub
    . |: a- j* R6 j
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
    
20.         Button5.Visible = False
    
21.         Button6.Visible = False
    
22.         Button7.Visible = False
    
23.         Label1.Visible = True
    $ A# @2 M( ~; @+ Y% p- `- F
24.         Button8.Visible = True
    
25.     End Sub
    5 b6 O: W7 b9 g: C9 \
26. 
    
27.     Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
    + K' Z' a5 Q+ j, \
28.         '帳號註冊
    3 Z0 q+ }0 ?) K' B4 i
29.         Shell("Rundll32.exe url.dll, FileProtocolHandler https://docs.google.com/forms/d/e/1FAIpQLSfpphD3cDtFCiayoOidc1TE0GLHL6TquEsempTlMRQYN5hZ4g/viewform", vbNormalFocus)
    ) J) a. H6 l/ X
30.     End Sub
    9 o9 w+ {& R0 s
31. 
    - }& w' K- Z0 k; F! `6 y
32.     Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
    7 S$ {* W9 w7 U+ d: D$ ^5 L
33.         '遊戲下載
    . r, T0 c9 Z8 i
34.         Shell("Rundll32.exe url.dll, FileProtocolHandler https://docs.google.com/uc?id=0B_JKhdsxGLKRSE42TXJQbDRicWs&export=download", vbNormalFocus)
    / k; C$ S4 e) D( x6 N8 f5 ?) c8 j+ k
35. 
    
36.     End Sub
    
37. 
    
38.     Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
    
39.         '論壇
    - V) c' e2 g( u- @# a* P2 H/ O: o
40.         Shell("Rundll32.exe url.dll, FileProtocolHandler http://twaicl.joinbbs.net/index.php", vbNormalFocus)
    - `) R  \$ {0 S' K7 r) R% {/ e
41.     End Sub
    
42. 
    : r; W' h! i2 [; [0 ]" T
43.     Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
    5 U8 v9 i9 ~, D, B5 P4 a& O
44.         '宣傳影片
    
45.         Shell("Rundll32.exe url.dll, FileProtocolHandler https://www.youtube.com/watch?v=K_bciqPTBWg", vbNormalFocus)
    9 D7 _% H! N% Q; p+ b- G
46.     End Sub
    
47. 
    
48.     Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
    
49.         End '結束程式
    , P2 a: [0 M( p/ [9 E0 F6 g# q$ u. h
50.     End Sub
    
51. 
    : W! f- v  q! j- p. w7 Y& g% x8 @
52.     Sub Reset()
    . G" Q7 L1 o2 f& A1 V
53.         Button1.Left = (Width - Button1.Width) / 2 - 10
    9 D1 z4 V8 g! p7 J! }: k
54.         Button2.Left = (Width - Button2.Width) / 2 - 10
    - b& i; d. Z: f( L! m
55.         Button3.Left = (Width - Button3.Width) / 2 - 10
    ( u( ]  S" Q' Y* t' k+ \( k7 o) ?
56.         Button4.Left = (Width - Button4.Width) / 2 - 10
    
57.         Button5.Left = (Width - Button5.Width) / 2 - 10
    6 b+ _0 U8 y' e# \! N
58.         Button6.Left = (Width - Button6.Width) / 2 - 10
    7 c- ^5 _5 {1 j: A! C# O! L
59.         Button7.Left = (Width - Button7.Width) / 2 - 10
    
60.         Button8.Left = (Width - Button8.Width) / 2 - 10
    4 I6 {3 X: H) ?$ T7 Q3 C
61.         Button1.Visible = True
    
62.         Button2.Visible = True
    
63.         Button3.Visible = True
    
64.         Button4.Visible = True
    
65.         Button5.Visible = True
    * ^6 D$ l  V( X/ a  Y
66.         Button6.Visible = True
    # k5 f: D. p8 O2 `/ `
67.         Button7.Visible = True
    : l) ^, W( E: U* O
68.         Label1.Visible = False
    ; R2 c* h: h/ i! G1 w1 Y
69.         Button8.Visible = False
    8 \; T4 [4 L) Y0 L) h2 h1 R6 V5 y1 X- _
70.     End Sub
    # P/ I! h' S5 n* }6 W" e5 Q
71. 
    * K/ a2 [/ e* M( y
72.     Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
    ) n0 D) d4 N$ x
73.         Call Reset()
    
74.     End Sub
    8 C: h) w1 A& E( B# z5 c. J
75. End Class
    

複製代碼

共收到 0 A幣

我要打賞

打賞榜

查看更多>>

暫無

捷足先登

暫無

捷足先登

暫無

捷足先登

暫無

----

暫無

----

暫無

----

暫無

----