-
UID：8
-
- 注册时间2005-10-30
- 最后登录2009-08-27
- 在线时间101小时
-
- 发帖369
- 搜Ta的帖子
- 精华
0
- 铜板3800
- 人品值215
- 贡献值0
- 交易币0
- 好评度305
- 信誉值0
- 金币0
-
访问TA的空间加好友用道具
- 发帖
- 369
- 铜板
- 3800
- 人品值
- 215
- 贡献值
- 0
- 交易币
- 0
- 好评度
- 305
- 信誉值
- 0
- 金币
- 0
- 所在楼道
|
写的很烂,也就是一个晚上的时间.. 1gYvp9Ma 边看帮助边写 .gif) UC00zW<Z@" 功能没完成就白天了.. _.,"`U; H 基本工作流程: %.{xo.`a[ 将中文软件名改为对应的拼音,使用WINRAR添加每个文件的注释... X%B2xQM 5 截取文章简介的方法还没想到。 2qKAO/_O 功能慢慢添加..........慢慢来，面包会有滴... U/r FH9e$ 's I @e s 界面如下: |q q29dS? 用来方便更新软件的软件 + gb"}
cN - Private Sub cmdOpen_Click()
- commondialog1.Filter = "winrar (*.rar)|*.rar|All Files (*.*)|*.*"
- commondialog1.FilterIndex = 1
- commondialog1.ShowOpen
- mfilespec = commondialog1.FileName
- text1 = mfilespec
- End Sub
- Private Sub Command1_Click()
- Dim sFilePath As String
- sFilePath = text1
- Dim lGetLen As Long, lNum As Long
- Dim sGetFile As String, sTemp As String
- lGetLen = Len(sFilePath) '得到文件路径长度
- sTemp = lGetLen
- For lNum = 1 To lGetLen
- If Left(sGetFile, 1) = "\" Then Exit For
- sGetFile = Mid(sFilePath, sTemp, lNum)
- sTemp = sTemp - 1
- Next lNum
- sGetFile = Mid(sGetFile, 2) '得到文件名
- Text2 = sGetFile
- End Sub
- Private Sub Command2_Click()
- Unload Me
- End Sub
- Private Sub Command3_Click()
- Text2 = zh(Text2)
- End Sub
- Private Function zh(name As String)
- zh = ""
- For i = 1 To Len(name)
- zh = zh + g(Asc(Mid(name, i, 1)))
- Next
- End Function
- Private Function g(num As Integer)
- Set d = CreateObject("Scripting.Dictionary")
- d.Add "a", -20319
- d.Add "b", -20283
- d.Add "c", -19775
- d.Add "d", -19218
- d.Add "e", -18710
- d.Add "f", -18526
- d.Add "g", -18239
- d.Add "h", -17922
- d.Add "j", -17417
- d.Add "k", -16474
- d.Add "l", -16212
- d.Add "m", -15640
- d.Add "n", -15165
- d.Add "o", -14922
- d.Add "p", -14914
- d.Add "q", -14630
- d.Add "r", -14149
- d.Add "s", -14090
- d.Add "t", -13318
- d.Add "w", -12838
- d.Add "x", -12556
- d.Add "y", -11847
- d.Add "z", -11055
- If num > 0 And num < 160 Then
- g = Chr(num)
- Else
- If num < -20319 Or num > -10247 Then
- g = ""
- Else
- a = d.Items
- b = d.keys
- For i = d.Count - 1 To 0 Step -1
- If a(i) <= num Then Exit For
- Next
- g = b(i)
- End If
- End If
- End Function
- Private Sub Command4_Click()
- Dim RetVal
- RetVal = Shell("C:\WINDOWS\regedit.EXE", 1)
- End Sub
|
