CarNa遊戲啟動器 改製

【檔案名稱】：CarNa遊戲啟動器【檔案格式】：exe
( q! X9 C1 O8 J: v, |8 K9 V1 x% p【檔案大小】：1.13 MB
3 Z5 p  j3 [3 |【檔案載點】：>>點此<<
+ ?% F3 x; T# k, w. e1 L5 {【掃毒報告】：>>點此<<
【檔案資訊】：原作:小夏 改製:雪楓月舞
【備註】：有任何問題歡迎在下方留言^^
【檔案內容】：

7 ?0 ^7 n- ^; ?6 q3 H# ~【原始碼】：
- o' x( @, f+ q# r

1. Public Class Form1
   
2.     Dim IP As String = "******************" '為保護伺服器不被有心人士 DDOS 不公開 IP
   
3.     Dim Port As String = "****" '為保護伺服器不被有心人士 DDOS 不公開 Port
   . m5 E8 P7 p7 F/ T
4.     Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
   
5.         Call Reset()
   & i/ B. K' A  H. d: j& e* o6 Y/ q
6.     End Sub
   6 a# H/ z8 R! G; x7 ?% e
7.     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
   + k3 B( I3 o; N+ t$ a2 m
8.         If My.Computer.FileSystem.FileExists("localhost.exe") Then
   
9.             Shell("cmd.exe /c " & "Start localhost " & IP & " " & Port, vbHide)
   & T* f* x  S. L# t2 ?
10.         Else
    
11.             MessageBox.Show("無法偵測到 localhost.exe" & vbNewLine & "請關閉防毒並將資料夾排除後解壓縮 localhost.rar", "錯誤", MessageBoxButtons.OK, MessageBoxIcon.Error)
    
12.         End If
    5 W7 {/ v' B, a& `
13.     End Sub
    2 o  b( d8 l, a
14. 
      P1 u$ [$ _6 r6 O
15.     Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    6 z2 Y+ j; o- V& g: e9 P# w  Q, h
16.         Button1.Visible = False
    
17.         Button2.Visible = False
    
18.         Button3.Visible = False
    + X  T3 }3 w7 c% Q4 B5 d) H
19.         Button4.Visible = False
    % H. c3 ]$ l% [5 Y
20.         Button5.Visible = False
    ; w6 L. a; Z( s* h$ H2 p% [, h$ `
21.         Button6.Visible = False
    9 W2 b: a( B8 I6 |9 X+ F
22.         Button7.Visible = False
    2 z% m; N8 o/ u% m3 |% c  F$ Y; O/ a
23.         Label1.Visible = True
    
24.         Button8.Visible = True
    . k& W% h" n9 [- T0 A
25.     End Sub
    
26. 
    ! Y' L6 e8 N( Z4 `, ?3 v9 u
27.     Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
    
28.         '帳號註冊
    + k% X( E+ s3 u) I! r: g
29.         Shell("Rundll32.exe url.dll, FileProtocolHandler https://docs.google.com/forms/d/e/1FAIpQLSfpphD3cDtFCiayoOidc1TE0GLHL6TquEsempTlMRQYN5hZ4g/viewform", vbNormalFocus)
    # }' b- w& g* t5 X( K8 j7 }
30.     End Sub
    
31. 
    
32.     Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
    
33.         '遊戲下載
    ( p; A4 b- v0 U! J* V# d  U0 d
34.         Shell("Rundll32.exe url.dll, FileProtocolHandler https://docs.google.com/uc?id=0B_JKhdsxGLKRSE42TXJQbDRicWs&export=download", vbNormalFocus)
    
35. 
    & s* J- ?7 R5 P6 n0 b* \  b  Z
36.     End Sub
    ' U3 |/ H7 q4 L
37. 
    
38.     Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
    7 z; M7 n$ h6 b+ S/ s. g- ~
39.         '論壇
    
40.         Shell("Rundll32.exe url.dll, FileProtocolHandler http://twaicl.joinbbs.net/index.php", vbNormalFocus)
    6 r3 _3 _* _6 g/ \# E& |3 w
41.     End Sub
    / G0 V; ^& N& i/ N$ Q
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
    ; u8 Y2 O! V: ]$ e) t* x
47. 
    8 Z# w2 y7 ^6 R' q; J
48.     Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
    
49.         End '結束程式
    % f* m) \! t2 v' J7 O2 {7 c# [
50.     End Sub
    # j* H2 e/ b1 h- A& z3 K: j6 R
51. 
    7 ~) x3 x( P+ b' q" f1 k6 K. ~8 e
52.     Sub Reset()
    4 N6 U8 Y* y" @6 x: ~0 S/ y
53.         Button1.Left = (Width - Button1.Width) / 2 - 10
    + l  h7 ]; Q+ x
54.         Button2.Left = (Width - Button2.Width) / 2 - 10
    
55.         Button3.Left = (Width - Button3.Width) / 2 - 10
    
56.         Button4.Left = (Width - Button4.Width) / 2 - 10
    9 }& T  a0 a3 R( Y
57.         Button5.Left = (Width - Button5.Width) / 2 - 10
    ! Q- H3 o3 \" T( V; }) r7 |9 {( w
58.         Button6.Left = (Width - Button6.Width) / 2 - 10
    : A  F6 `6 P! E# `. [# |
59.         Button7.Left = (Width - Button7.Width) / 2 - 10
    
60.         Button8.Left = (Width - Button8.Width) / 2 - 10
    
61.         Button1.Visible = True
    7 f5 H7 V8 \: m/ i. G$ i
62.         Button2.Visible = True
    2 @, _/ D+ Z% f& W5 ^3 j$ s1 {
63.         Button3.Visible = True
    $ d$ J& A: F# O* X( Q' v) r
64.         Button4.Visible = True
    2 E4 R0 ?$ n1 Y& u4 y6 [
65.         Button5.Visible = True
    / J8 v$ }. t- |2 J3 y  M$ B
66.         Button6.Visible = True
    
67.         Button7.Visible = True
    
68.         Label1.Visible = False
    
69.         Button8.Visible = False
    , O1 ~7 j6 O% f* v% ~- K
70.     End Sub
    3 m: w3 ~  R: h  H" K
71. 
    
72.     Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
    
73.         Call Reset()
      n3 }# r1 ~" z' ?- b
74.     End Sub
    # L/ O5 J0 S$ p% ~; P
75. End Class
    5 ]7 }7 V" c/ k" }* I8 p" q7 B' ^

複製代碼

共收到 0 A幣

我要打賞

打賞榜

查看更多>>

暫無

捷足先登

暫無

捷足先登

暫無

捷足先登

暫無

----

暫無

----

暫無

----

暫無

----