设为首页收藏本站新闻投稿

MOD中国同盟社

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 733|回复: 6

[推荐] 【Angel丶杨哥】【VB语言开放源码】CS登录管理器(渣外观) [复制链接]

Rank: 10Rank: 10Rank: 10

帖子
419
精华
0
声望
3873 点
金币
498 Mold
被赞许
21 次
注册时间
2011-6-30

可爱小猫

发表于 2012-12-23 15:47:26 |显示全部楼层
本帖最后由 Angel丶杨哥 于 2012-12-29 17:06 编辑

【UI改进版】CS启动器已经发布啦!!!赶快下载吧!!!!!


已更新!!!

http://www.modchina.com/forum.php?mod=viewthread&tid=67571&extra=











    想必各位MOD制作@爱好者们,电脑里一定装着各种各样的CS,什么CSNST,CSBTE,CSv3266,CSvxxxx等等等等等。。。以便实验和开发MOD,可是这些目录经常会被随意安装在某个目录,导致每次打开都需要点来点去,一个文件夹里还有一个文件夹,十分烦人,再加上某些特殊需要,比如需要窗口运行,需要800x600运行,需要一键进入一个ip服务器。虽然大家用控制台已经炉火纯青,但是每次都打,每次都烦。而且上文说道,各位仁兄电脑中的CS数不胜数,为什么不将它们的目录全部管理起来呢?只需在一个程序中点一下就可以更换打开CS的目录。没错,我利用Visual Basic6.0写出了一个集CS登录和管理的程序。可以帮助大家更有条理的管理文件,加快工作效率。












不过外观比较渣,希望大家不要介意。。。这个程序是在我妈控制的夹隙中制作的。。。没有心思除错,基本上规规矩矩的正常使用绝对没问题,喜欢的人顶一下哈!!!

开放源码:
  1.   Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, _
  2.     ByVal lpoperation As String, ByVal lpfile As String, ByVal lpparameters As String, _
  3.     ByVal lpdirectory As String, ByVal nshowcmd As Long) As Long


  4. Private Sub form_load()
  5.     Dim a As String
  6.     Dim b As String

  7.     cmdop.Enabled = True
  8.     cmdwin.Enabled = True
  9.     cmd800.Enabled = True
  10.     cmdkey.Enabled = True
  11.    
  12.     Dim FilePath As String, S As String, SB As String
  13.     FilePath = App.Path
  14.     FilePath = IIf(Right(FilePath, 1) = "\", FilePath & "CS启动管理文件.ini", FilePath & "\CS启动管理文件.ini")
  15.     SB = Dir(FilePath)
  16.     If Len(SB) > 0 Then
  17.         Open FilePath For Input As #1
  18.     Do While EOF(1) = False
  19.         Line Input #1, S
  20.         list.AddItem S
  21.     Loop
  22.         Close #1
  23.     End If
  24.     list.Text = GetSetting(App.Title, "List", "Text", "18")
  25.     txtip.Text = GetSetting(App.Title, "txtip", "Text", "19")
  26.    
  27. End Sub
  28. Private Sub list_change()
  29.     Dim I As Long, FilePath As String
  30.     FilePath = App.Path
  31.     FilePath = IIf(Right(FilePath, 1) = "\", FilePath & "CS启动管理文件.ini", FilePath & "\CS启动管理文件.ini")
  32.     Open FilePath For Output As #1
  33.     For I = 0 To list.ListCount - 1
  34.     Print #1, list.list(I)
  35.     Next I
  36.     Close #1
  37.    
  38.     'Mid(list.Text, 1, InStrRev(list.Text, "\"))            '这是游戏文件的文件夹地址
  39.    
  40. End Sub

  41. Private Sub txtip_change()
  42.     SaveSetting App.Title, "List", "Text", list.Text
  43.     SaveSetting App.Title, "txtip", "Text", txtip.Text
  44. End Sub

  45. Private Sub txtad_change()
  46.     If txtad.Text = "" Then
  47.         cmdw.Enabled = False
  48.     Else
  49.         cmdw.Enabled = True
  50.     End If
  51. End Sub

  52. Private Sub dir1_Change()
  53.     '获得路径名称
  54.     Fil.Path = Dir1.Path
  55.     '更新数据库名称文本框
  56. End Sub

  57. Private Sub drv_Change()
  58.     '获得磁盘列表控件的磁盘名称
  59.     '导致dirDBSaveDir_Change()被执行
  60.     Dir1.Path = Drv.Drive
  61. End Sub

  62. Private Sub cmdw_click()
  63.     If txtad.Text <> "" Then
  64.         list.AddItem txtad.Text
  65.         list.Text = txtad.Text
  66.         txtad = ""
  67.     End If
  68. End Sub

  69. Private Sub fil_Click()
  70.     a = Fil.list(Fil.ListIndex)
  71.     b = Dir1.list(Dir1.ListIndex)
  72.     txtad.Text = b + "\" + a
  73. End Sub

  74. Private Sub cmdop_click()
  75.     Open "C:\WINDOWS\Temp\CS_121387.bat" For Output As #4
  76.     If txtip.Text = "" Then
  77.         Print #4, list.Text
  78.     Else: Print #4, list.Text + " -console +connect " + txtip.Text
  79.     End If
  80.     Close #4
  81.     Shell "C:\WINDOWS\Temp\CS_121387.bat"
  82. End Sub

  83. Private Sub cmdwin_click()
  84.     Open "C:\WINDOWS\Temp\window121387.bat" For Output As #5
  85.         Print #5, list.Text + " -window"
  86.     Close #5
  87.     Shell "C:\WINDOWS\Temp\window121387.bat"
  88. End Sub

  89. Private Sub cmd800_click()
  90.     Open "C:\WINDOWS\Temp\800_600_121387.bat" For Output As #2
  91.     Print #2, list.Text + " -w 800"
  92.     Close #2
  93.     Shell "C:\WINDOWS\Temp\800_600_121387.bat"
  94. End Sub

  95. Private Sub cmdkey_click()
  96.     Open "C:\WINDOWS\Temp\CSCDKEY121387.reg" For Output As #3
  97.     Print #3, "REGEDIT4" & vbCrLf _
  98.            + "[HKEY_CURRENT_USER\Software\Valve\Half-Life\Settings]" & vbCrLf _
  99.            + """io""=""1058891060""" & vbCrLf _
  100.            + """ValveKey""=""5RP2E-EPH3K-BR3LG-KMGTE-FN8PY""" & vbCrLf _
  101.            + """yeK1""=""""" & vbCrLf _
  102.            + """yeK2""="""""
  103.     Close #3
  104.     Shell "cmd /c regedit.exe C:\WINDOWS\Temp\CSCDKEY121387.reg"
  105. End Sub

  106. Private Sub cmddel_click()
  107.     Dim sb2 As String

  108.     If list.ListCount > 0 Then
  109.             If list.Text = "" Then
  110.                 sb2 = 1 + 1
  111.             Else: list.RemoveItem list.ListIndex
  112.             End If
  113.     End If
  114. End Sub

  115. Private Sub cmdxz_click()
  116.         Dim lngReturn As Long
  117.     lngReturn = ShellExecute(Me.hwnd, "open", "http://www.xiazaiba.com/html/2144.html", "", "", 0)
  118. End Sub


  119. Private Sub cmdopth_click()
  120.     Shell "C:\windows\system32\mspaint.exe"
  121. End Sub

  122. Private Sub cmdopfl_Click()
  123.     Shell "explorer " & Mid(list.Text, 1, InStrRev(list.Text, "\")), 1
  124. End Sub
复制代码


回复是中华民族的传统美德


游客,如果您要查看本帖隐藏内容请回复










欢迎浏览我的其他帖子哦!!!




附件: 你需要登录才可以下载或查看附件。没有帐号?注册
千万不要点哦
很爽的东东,你懂得

点了就不要吃惊哦
[img]http://www.modchina.com/data/attachment/forum/201111/28/203632

使用道具 举报

Rank: 2

帖子
55
精华
0
声望
163 点
金币
48 Mold
被赞许
2 次
注册时间
2013-4-18
发表于 2013-5-28 13:58:12 |显示全部楼层
kwo看看。。。。

使用道具 举报

Honorary Member

在人海出现,同时也在人海中沉没

Rank: 7Rank: 7Rank: 7

帖子
4193
精华
3
声望
7989 点
金币
696 Mold
被赞许
151 次
注册时间
2009-12-11

黑暗使者 Modchina灌水王

发表于 2012-12-24 03:15:23 |显示全部楼层
好顶赞           

使用道具 举报

Modchina声望-尊敬

苦A党里我最狂

Rank: 7Rank: 7Rank: 7

帖子
565
精华
0
声望
2611 点
金币
337 Mold
被赞许
43 次
注册时间
2011-6-28

MTT职员 懒人勋章

发表于 2012-12-23 22:10:01 |显示全部楼层
UI好简陋                                          吐槽完毕= =
逃出这里

使用道具 举报

Super Moderator

职业杀手

Rank: 10Rank: 10Rank: 10

帖子
1592
精华
0
声望
6291 点
金币
1753 Mold
被赞许
51 次
注册时间
2009-9-29

热心会员奖 黑暗使者 可爱小猫

发表于 2012-12-23 20:37:29 |显示全部楼层
非常感谢!!

使用道具 举报

Modchina声望-尊敬

欢乐谷续做者

Rank: 7Rank: 7Rank: 7

帖子
314
精华
0
声望
2570 点
金币
147 Mold
被赞许
26 次
注册时间
2012-7-12

可爱小猫 懒人勋章

发表于 2012-12-23 17:53:07 |显示全部楼层
关于登录器我好想也搞过一个易语言的,就是会被360误杀

使用道具 举报

Rank: 10Rank: 10Rank: 10

帖子
995
精华
0
声望
4839 点
金币
1089 Mold
被赞许
138 次
注册时间
2010-11-21

懒人勋章

发表于 2012-12-23 16:21:25 |显示全部楼层
这个用CS1.6的工具很有用,收了,感谢分享

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

回顶部