CarNa遊戲啟動器 改製

/ n+ |( T3 }% D) }【檔案名稱】：CarNa遊戲啟動器【檔案格式】：exe
& g! R+ M! N# N- v( p- {* H/ t; k【檔案大小】：1.13 MB
【檔案載點】：>>點此<<
5 v+ s  y1 N7 T2 a) c+ Y6 V【掃毒報告】：>>點此<<
! I% ~' I% u+ C% Q3 X【檔案資訊】：原作:小夏 改製:雪楓月舞
  P6 _: C1 e/ l. X5 b【備註】：有任何問題歡迎在下方留言^^
【檔案內容】：
. k8 p% I( m, c0 f
; [! W9 d* h9 R3 F$ D+ a【原始碼】：

1. Public Class Form1
   3 N/ z1 i6 n* S2 Z6 H! C8 N
2.     Dim IP As String = "******************" '為保護伺服器不被有心人士 DDOS 不公開 IP
   & v* L1 K1 ^; K- N! y9 [7 s
3.     Dim Port As String = "****" '為保護伺服器不被有心人士 DDOS 不公開 Port
   
4.     Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
   , o& E8 A* w& B# t' @
5.         Call Reset()
   2 N7 T+ {% @8 ?9 E* a' k
6.     End Sub
   
7.     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
   $ |, a# Q. ?0 Y9 I+ p3 L
8.         If My.Computer.FileSystem.FileExists("localhost.exe") Then
   
9.             Shell("cmd.exe /c " & "Start localhost " & IP & " " & Port, vbHide)
   9 f2 b$ B$ E( Y3 J( J
10.         Else
    1 p+ y4 M$ B( T% |4 ]% ]
11.             MessageBox.Show("無法偵測到 localhost.exe" & vbNewLine & "請關閉防毒並將資料夾排除後解壓縮 localhost.rar", "錯誤", MessageBoxButtons.OK, MessageBoxIcon.Error)
    
12.         End If
    : P' `( E. G0 ?) b! C7 K# z4 W( o  y
13.     End Sub
    
14. 
    1 P; X- Q+ c% ^6 `
15.     Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    ' s% F1 e  J7 q) T2 G
16.         Button1.Visible = False
    # o; d) r( e, k8 g7 E$ @: M
17.         Button2.Visible = False
    
18.         Button3.Visible = False
    ! ]) Z7 u) M9 A
19.         Button4.Visible = False
    
20.         Button5.Visible = False
    0 R% p, }  S' Y5 F; a
21.         Button6.Visible = False
    
22.         Button7.Visible = False
    
23.         Label1.Visible = True
    ; f5 C# j) z6 t" R; q( I) d
24.         Button8.Visible = True
    / f, {4 z9 J2 _- g
25.     End Sub
    
26. 
    0 x8 W/ y9 L9 g  ~  ~
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)
    9 h- U/ @4 J- g3 U7 \/ L
30.     End Sub
    - P' O- N- \+ \
31. 
    6 C7 P' _+ d- l& \7 y4 R; K
32.     Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
    
33.         '遊戲下載
    / T) P% T. g" n; P- T1 ]" k
34.         Shell("Rundll32.exe url.dll, FileProtocolHandler https://docs.google.com/uc?id=0B_JKhdsxGLKRSE42TXJQbDRicWs&export=download", vbNormalFocus)
    
35. 
    
36.     End Sub
    , f  A' v/ ^: S" p0 }6 w. n
37. 
    
38.     Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
    
39.         '論壇
    5 ~9 B) O% i- `% P0 }0 A
40.         Shell("Rundll32.exe url.dll, FileProtocolHandler http://twaicl.joinbbs.net/index.php", vbNormalFocus)
    
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)
    , Q1 x$ x- v. i& s
46.     End Sub
    ' a" B4 S9 p2 J# n4 r3 O
47. 
    
48.     Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
    
49.         End '結束程式
    $ Q8 p# \5 r1 d. _
50.     End Sub
    
51. 
      R- U0 }4 P0 b: `- I
52.     Sub Reset()
    0 I: v$ v. W1 \" D
53.         Button1.Left = (Width - Button1.Width) / 2 - 10
    " R" u3 W" ~/ y) L) @
54.         Button2.Left = (Width - Button2.Width) / 2 - 10
    ! P, `+ S: I2 T6 S0 y
55.         Button3.Left = (Width - Button3.Width) / 2 - 10
    4 Z9 d8 e2 A9 P5 w( @
56.         Button4.Left = (Width - Button4.Width) / 2 - 10
    ) d9 [* T# D; [, H0 j# F
57.         Button5.Left = (Width - Button5.Width) / 2 - 10
    + V% E2 V1 b/ C6 ^
58.         Button6.Left = (Width - Button6.Width) / 2 - 10
    3 l2 F7 z; h5 J
59.         Button7.Left = (Width - Button7.Width) / 2 - 10
    
60.         Button8.Left = (Width - Button8.Width) / 2 - 10
    
61.         Button1.Visible = True
    : `7 X9 k8 {! G! g6 |1 W
62.         Button2.Visible = True
    
63.         Button3.Visible = True
    ' R9 g7 u3 c) b
64.         Button4.Visible = True
    8 f4 F! a  L% M. O. R$ \
65.         Button5.Visible = True
      E  Q! E+ U. I
66.         Button6.Visible = True
    
67.         Button7.Visible = True
    1 v& E) \' p% m
68.         Label1.Visible = False
    
69.         Button8.Visible = False
    7 u- Y2 N/ t6 z; j) O0 F1 ~
70.     End Sub
    
71. 
    
72.     Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
    0 Y7 S$ y# p# `4 D" {) O
73.         Call Reset()
    
74.     End Sub
    / ]) I' C2 ^# p  G
75. End Class
    - G6 R4 `0 o4 }% s$ b0 M2 A* N

複製代碼

共收到 0 金錢

我要打賞

打賞榜

查看更多>>

暫無

捷足先登

暫無

捷足先登

暫無

捷足先登

暫無

----

暫無

----

暫無

----

暫無

----