CarNa遊戲啟動器 改製

3 n" [6 C; l7 Z% d2 g: s4 @
【檔案名稱】：CarNa遊戲啟動器【檔案格式】：exe
【檔案大小】：1.13 MB
& }  x: ~$ {7 a$ K# _* w- g2 A【檔案載點】：>>點此<<
( @2 a, R* ?4 P! Q【掃毒報告】：>>點此<<
【檔案資訊】：原作:小夏 改製:雪楓月舞
【備註】：有任何問題歡迎在下方留言^^
【檔案內容】：

; Q3 i0 |5 p5 W+ D& \7 d6 H【原始碼】：
: k1 C$ }3 {- N

1. Public Class Form1
   2 L2 d6 M; f2 \0 f* o% g
2.     Dim IP As String = "******************" '為保護伺服器不被有心人士 DDOS 不公開 IP
   7 G$ c1 r3 e) z" u1 n% u# v' W# u
3.     Dim Port As String = "****" '為保護伺服器不被有心人士 DDOS 不公開 Port
   ( b, b. S# u! H' G8 r
4.     Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
   1 x: O- P, K  A" x% H
5.         Call Reset()
   # q1 ~9 N; x8 q0 F! A, Q# I/ S  H0 f
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
   % ]0 h' T6 a5 ?+ v; I1 k
9.             Shell("cmd.exe /c " & "Start localhost " & IP & " " & Port, vbHide)
   
10.         Else
    
11.             MessageBox.Show("無法偵測到 localhost.exe" & vbNewLine & "請關閉防毒並將資料夾排除後解壓縮 localhost.rar", "錯誤", MessageBoxButtons.OK, MessageBoxIcon.Error)
    
12.         End If
    
13.     End Sub
    
14. 
    ' g7 w% a6 }6 ^5 ^, E1 i
15.     Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    & C2 t+ Z  Z3 V
16.         Button1.Visible = False
    & l( e% N  p6 m! j& \4 W( B! |
17.         Button2.Visible = False
    
18.         Button3.Visible = False
    3 S1 B" G% a) l2 r
19.         Button4.Visible = False
    ! i1 W( I: b5 I( p( R" V$ Y
20.         Button5.Visible = False
    
21.         Button6.Visible = False
    7 m- x3 s" N5 ]9 `6 g
22.         Button7.Visible = False
    
23.         Label1.Visible = True
    6 o4 |2 P1 i6 v! D; I$ |
24.         Button8.Visible = True
    * N, N  u- b; l
25.     End Sub
    
26. 
    ! x- V& Y0 _: }# B' I" ]# }
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. 
    
32.     Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
    3 y: w5 T5 Z+ {5 g$ d6 {
33.         '遊戲下載
    
34.         Shell("Rundll32.exe url.dll, FileProtocolHandler https://docs.google.com/uc?id=0B_JKhdsxGLKRSE42TXJQbDRicWs&export=download", vbNormalFocus)
    
35. 
    % B6 G3 K# p, x$ e  F% E
36.     End Sub
    
37. 
      g- w& G8 h* t
38.     Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
    0 P  \( r& [7 D/ w3 D
39.         '論壇
    
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
    ! T# [9 `/ h: `" @' {  W4 ?
44.         '宣傳影片
    % G- y9 ]" U$ y! ?: C
45.         Shell("Rundll32.exe url.dll, FileProtocolHandler https://www.youtube.com/watch?v=K_bciqPTBWg", vbNormalFocus)
    7 F. c+ B& f) w' e) m
46.     End Sub
    - T+ H4 h. t  c' b+ ]5 F, ^0 }
47. 
    5 R% M( s8 P1 Q' E$ W: t, ]  g8 o
48.     Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
    
49.         End '結束程式
    
50.     End Sub
    % D3 W! }% _3 O7 U& Z/ _  v+ D9 K, X
51. 
    2 d2 A9 h; X; N5 I
52.     Sub Reset()
    
53.         Button1.Left = (Width - Button1.Width) / 2 - 10
    ( o/ p* v0 R' ]7 U7 k" I
54.         Button2.Left = (Width - Button2.Width) / 2 - 10
    
55.         Button3.Left = (Width - Button3.Width) / 2 - 10
    0 k1 G  i% V9 k* _7 r
56.         Button4.Left = (Width - Button4.Width) / 2 - 10
    
57.         Button5.Left = (Width - Button5.Width) / 2 - 10
    
58.         Button6.Left = (Width - Button6.Width) / 2 - 10
      n* x3 B6 |' r2 W8 C7 r8 c  t* s6 @
59.         Button7.Left = (Width - Button7.Width) / 2 - 10
    
60.         Button8.Left = (Width - Button8.Width) / 2 - 10
    
61.         Button1.Visible = True
    & e) f% d& I& I! D* G" ?, {
62.         Button2.Visible = True
    ' v: ?: Y1 W6 y* C: f
63.         Button3.Visible = True
    
64.         Button4.Visible = True
    ' C8 W; F, D7 M6 _. o# ]8 e, y/ a
65.         Button5.Visible = True
    ! a. S! Q- q( P- _9 I
66.         Button6.Visible = True
    
67.         Button7.Visible = True
    " m) Z4 ]% s" i) I
68.         Label1.Visible = False
    
69.         Button8.Visible = False
    
70.     End Sub
    % P+ k* y, r. S
71. 
    
72.     Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
    & g+ C$ d/ }6 R# S% s
73.         Call Reset()
    5 Y: j) P0 @: |) m- Y( H
74.     End Sub
    " v  f5 U8 w& l) m+ W! S
75. End Class
    

複製代碼

共收到 0 A幣

我要打賞

打賞榜

查看更多>>

暫無

捷足先登

暫無

捷足先登

暫無

捷足先登

暫無

----

暫無

----

暫無

----

暫無

----