CarNa遊戲啟動器 改製

6 C' N: [9 L$ b/ R4 L- H3 U
; n9 c( D* n% p" C1 s. k【檔案名稱】：CarNa遊戲啟動器【檔案格式】：exe
【檔案大小】：1.13 MB
) v/ E3 ?; J5 R: i, ^0 \1 m【檔案載點】：>>點此<<
【掃毒報告】：>>點此<<
【檔案資訊】：原作:小夏 改製:雪楓月舞
! W2 n* {9 _- m# u, ~+ c【備註】：有任何問題歡迎在下方留言^^
【檔案內容】：

; H; N) M8 M% g- o- U【原始碼】：
9 P0 L7 Q  x' H

1. Public Class Form1
   
2.     Dim IP As String = "******************" '為保護伺服器不被有心人士 DDOS 不公開 IP
   # Q! n0 P2 p; p  D
3.     Dim Port As String = "****" '為保護伺服器不被有心人士 DDOS 不公開 Port
   % D5 C  w1 e( s1 \
4.     Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
   
5.         Call Reset()
   $ r5 {( o* l& C+ @
6.     End Sub
   # D9 O0 n9 ~* r: y* i+ H
7.     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
   
8.         If My.Computer.FileSystem.FileExists("localhost.exe") Then
   ) T, F, N, n- ~3 }8 ^
9.             Shell("cmd.exe /c " & "Start localhost " & IP & " " & Port, vbHide)
   % `4 f6 d1 v8 W& A2 m$ {
10.         Else
    7 ]; \$ Q7 ^( \6 e) y. ~: \
11.             MessageBox.Show("無法偵測到 localhost.exe" & vbNewLine & "請關閉防毒並將資料夾排除後解壓縮 localhost.rar", "錯誤", MessageBoxButtons.OK, MessageBoxIcon.Error)
    2 u, W9 ^& R" B2 @. e
12.         End If
    
13.     End Sub
    : s2 @; C1 X/ h% e$ W  E4 e
14. 
    
15.     Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    5 r5 s/ p- `0 ~7 l7 @; l3 d, u# }
16.         Button1.Visible = False
    " Z) R8 Y' J" o# {) W2 z
17.         Button2.Visible = False
    1 ^. y, ^' ?, E% K
18.         Button3.Visible = False
    . \% o2 I% u8 n# S$ p' l! V. W! G' p
19.         Button4.Visible = False
    
20.         Button5.Visible = False
    ; a8 c. o$ d) E( w$ r
21.         Button6.Visible = False
    
22.         Button7.Visible = False
    
23.         Label1.Visible = True
    ' u; S5 p( {" ?1 b
24.         Button8.Visible = True
    
25.     End Sub
    
26. 
    
27.     Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
    , W% c) k) p4 Y; m" T
28.         '帳號註冊
    9 s1 O0 S1 C/ R% ~$ E1 T6 W* ^
29.         Shell("Rundll32.exe url.dll, FileProtocolHandler https://docs.google.com/forms/d/e/1FAIpQLSfpphD3cDtFCiayoOidc1TE0GLHL6TquEsempTlMRQYN5hZ4g/viewform", vbNormalFocus)
    8 Z' A3 G& o1 u6 W; o6 h
30.     End Sub
      V. w2 J! N- u( \; U) C0 ^
31. 
    # o+ ~+ J8 }# E- j/ n
32.     Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
    2 z( H2 c, {9 r* \: A9 L% f7 c
33.         '遊戲下載
    
34.         Shell("Rundll32.exe url.dll, FileProtocolHandler https://docs.google.com/uc?id=0B_JKhdsxGLKRSE42TXJQbDRicWs&export=download", vbNormalFocus)
    ; A6 t: j: A) ]! A) i! `' }
35. 
    
36.     End Sub
      `, r8 ^3 @8 h' |5 m9 h2 d
37. 
    # I+ L- T  i. ]
38.     Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
    ) ^+ d" P/ x9 e: \! K7 X# r0 M
39.         '論壇
    " w4 @) m* x) N8 }0 u& B
40.         Shell("Rundll32.exe url.dll, FileProtocolHandler http://twaicl.joinbbs.net/index.php", vbNormalFocus)
    8 B# M# b& c$ {8 P' G% o
41.     End Sub
    4 f; D! }0 w, I4 L  r
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)
    
46.     End Sub
    
47. 
    2 c: m. i0 V3 j6 g8 ~& t6 G6 C
48.     Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
    
49.         End '結束程式
    7 l- u* P( z# ]3 x
50.     End Sub
    ) o8 j" B$ X! b8 R" F% z
51. 
    7 s. c$ }! P% F7 t) s
52.     Sub Reset()
    
53.         Button1.Left = (Width - Button1.Width) / 2 - 10
    
54.         Button2.Left = (Width - Button2.Width) / 2 - 10
    
55.         Button3.Left = (Width - Button3.Width) / 2 - 10
    
56.         Button4.Left = (Width - Button4.Width) / 2 - 10
    
57.         Button5.Left = (Width - Button5.Width) / 2 - 10
    6 l1 m' ?- D; C! q
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
      J/ w! M. o  A6 q
62.         Button2.Visible = True
    ! q' l5 I0 w4 U# k
63.         Button3.Visible = True
    
64.         Button4.Visible = True
    % w6 X2 x/ V" S; y( K% H
65.         Button5.Visible = True
    ! j8 E( p" V4 F! f# o3 g
66.         Button6.Visible = True
    " }2 Z9 i0 j: G# S: U  X) @1 i
67.         Button7.Visible = True
    
68.         Label1.Visible = False
    3 ^* `  A0 ]  ]' m; e2 h4 F
69.         Button8.Visible = False
    
70.     End Sub
    9 D" I/ Q; A7 K; ^/ N- p
71. 
    
72.     Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
    ) J* f1 F  \. `; D7 e. V0 o
73.         Call Reset()
    
74.     End Sub
    6 y' Z' @9 ~: X, n0 A6 w
75. End Class
    " r8 t" T5 c6 l2 ^  Z

複製代碼

共收到 0 金錢

我要打賞

打賞榜

查看更多>>

暫無

捷足先登

暫無

捷足先登

暫無

捷足先登

暫無

----

暫無

----

暫無

----

暫無

----