CarNa遊戲啟動器 改製

$ h. C6 f: e: o- v【檔案名稱】：CarNa遊戲啟動器【檔案格式】：exe
【檔案大小】：1.13 MB
( z3 f6 y! o' g0 J$ F/ v0 d% l【檔案載點】：>>點此<<
【掃毒報告】：>>點此<<
& y' x" E* Q( a+ o8 Z) a: f【檔案資訊】：原作:小夏 改製:雪楓月舞
【備註】：有任何問題歡迎在下方留言^^
【檔案內容】：

1 M0 v3 f9 n1 t: I0 B) z; U6 z) }【原始碼】：
/ e9 @( i, D+ O  H8 d1 l

1. Public Class Form1
   0 D" W0 T( ^, d
2.     Dim IP As String = "******************" '為保護伺服器不被有心人士 DDOS 不公開 IP
   * I- M0 s1 z# P: }, `% ^2 U
3.     Dim Port As String = "****" '為保護伺服器不被有心人士 DDOS 不公開 Port
   5 y6 N4 Q2 `4 D9 p# G
4.     Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
   
5.         Call Reset()
   
6.     End Sub
   
7.     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
     ^) z" `' n4 Z/ V/ ^( u2 D8 M
8.         If My.Computer.FileSystem.FileExists("localhost.exe") Then
   ! k" X% H# K( d2 H; M9 h7 \
9.             Shell("cmd.exe /c " & "Start localhost " & IP & " " & Port, vbHide)
   ' Q( v+ _2 ?6 _9 F& z
10.         Else
    
11.             MessageBox.Show("無法偵測到 localhost.exe" & vbNewLine & "請關閉防毒並將資料夾排除後解壓縮 localhost.rar", "錯誤", MessageBoxButtons.OK, MessageBoxIcon.Error)
    
12.         End If
    ; v( y1 U7 C3 J* Z* G4 N/ A
13.     End Sub
    9 g+ y4 p' r2 L& h: b  ?* D
14. 
    ) |2 O" l, ~' j$ y" O' F9 C4 q
15.     Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    
16.         Button1.Visible = False
    7 l/ d/ e% z- F, c# F+ H0 j
17.         Button2.Visible = False
    
18.         Button3.Visible = False
    
19.         Button4.Visible = False
    0 w# y% j0 C6 C
20.         Button5.Visible = False
    + n6 ^$ u4 ^. d, m2 e1 A( {4 Q6 U
21.         Button6.Visible = False
    
22.         Button7.Visible = False
    
23.         Label1.Visible = True
    8 E/ ]) \0 x; T/ v3 h* m
24.         Button8.Visible = True
    / u5 L$ i$ p; s) u
25.     End Sub
    3 O, G# R, C/ Y8 k5 }
26. 
    " n" W8 L5 f6 ~) R
27.     Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
    # c4 Z0 h+ `# O  n2 @4 g, f! d( o1 l; M
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
    0 }/ q+ s! Z; {! i0 }/ Q
33.         '遊戲下載
    
34.         Shell("Rundll32.exe url.dll, FileProtocolHandler https://docs.google.com/uc?id=0B_JKhdsxGLKRSE42TXJQbDRicWs&export=download", vbNormalFocus)
    
35. 
    % S+ U2 w3 l, T) F
36.     End Sub
    
37. 
    
38.     Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
    
39.         '論壇
    $ M- _" b* V6 s& ~/ X- N/ c
40.         Shell("Rundll32.exe url.dll, FileProtocolHandler http://twaicl.joinbbs.net/index.php", vbNormalFocus)
    
41.     End Sub
      I, @; Q9 b6 F. m; i8 ~7 b. S
42. 
    9 Y% m' |  d6 P) l( G. F2 n
43.     Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
    
44.         '宣傳影片
    / ~2 X: Y  |- F3 D% Y) G
45.         Shell("Rundll32.exe url.dll, FileProtocolHandler https://www.youtube.com/watch?v=K_bciqPTBWg", vbNormalFocus)
    " d$ ^2 U: {: M( f
46.     End Sub
    4 }) e1 n0 k% N3 o2 n" H8 T4 r
47. 
    
48.     Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
    
49.         End '結束程式
    
50.     End Sub
    % [9 _  O+ Z/ }9 e+ t+ f
51. 
    
52.     Sub Reset()
    : Q6 U* ~& b! _
53.         Button1.Left = (Width - Button1.Width) / 2 - 10
    
54.         Button2.Left = (Width - Button2.Width) / 2 - 10
    " V! V( i  }5 S
55.         Button3.Left = (Width - Button3.Width) / 2 - 10
    
56.         Button4.Left = (Width - Button4.Width) / 2 - 10
    
57.         Button5.Left = (Width - Button5.Width) / 2 - 10
    
58.         Button6.Left = (Width - Button6.Width) / 2 - 10
    
59.         Button7.Left = (Width - Button7.Width) / 2 - 10
    0 S3 Z! c6 H; Q, M1 I
60.         Button8.Left = (Width - Button8.Width) / 2 - 10
    9 |( ?* o$ Y2 g; k
61.         Button1.Visible = True
    
62.         Button2.Visible = True
    + u% t- Y$ m6 u: B
63.         Button3.Visible = True
    1 y$ I2 M* e& V- |
64.         Button4.Visible = True
    
65.         Button5.Visible = True
    % B% y" E8 y0 D
66.         Button6.Visible = True
    4 R1 i# v0 K  G- g& ~
67.         Button7.Visible = True
    
68.         Label1.Visible = False
    
69.         Button8.Visible = False
    - [5 n3 T9 S; g  Z
70.     End Sub
    
71. 
    
72.     Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
    5 c/ h% ?6 ~; Y6 r+ M3 Q
73.         Call Reset()
    
74.     End Sub
    
75. End Class
    : ?+ Y% S1 O& g% @5 S

複製代碼

共收到 0 A幣

我要打賞

打賞榜

查看更多>>

暫無

捷足先登

暫無

捷足先登

暫無

捷足先登

暫無

----

暫無

----

暫無

----

暫無

----