社区应用 最新帖子 精华区 社区服务 会员列表 统计排行 社区论坛任务 迷你宠物
  • 2483阅读
  • 3回复

快疯了.55555,VB写的程序

级别: 经院高中
发帖
369
铜板
3800
人品值
215
贡献值
0
交易币
0
好评度
305
信誉值
0
金币
0
所在楼道
写的很烂,也就是一个晚上的时间.. lRentNg0b  
边看帮助边写 0p~:fm  
功能没完成就白天了.. IY :iGn8R  
基本工作流程: j@ =n|cq  
将中文软件名改为对应的拼音,使用WINRAR添加每个文件的注释... T}fo:aB}  
截取文章简介的方法还没想到。 LM<OYRB(  
功能慢慢添加..........慢慢来,面包会有滴... .|_+>){$w  
9C`Fd S   
界面如下: ,.F,]m=  
用来方便更新软件的软件 E8)C_[QJ`  
  1. Private Sub cmdOpen_Click()
  2.   commondialog1.Filter = "winrar (*.rar)|*.rar|All Files (*.*)|*.*"
  3.   commondialog1.FilterIndex = 1
  4.   commondialog1.ShowOpen
  5.   mfilespec = commondialog1.FileName
  6.   text1 = mfilespec
  7. End Sub
  8. Private Sub Command1_Click()
  9. Dim sFilePath As String
  10. sFilePath = text1
  11. Dim lGetLen As Long, lNum As Long
  12. Dim sGetFile As String, sTemp As String
  13. lGetLen = Len(sFilePath) '得到文件路径长度
  14. sTemp = lGetLen
  15. For lNum = 1 To lGetLen
  16. If Left(sGetFile, 1) = "\" Then Exit For
  17. sGetFile = Mid(sFilePath, sTemp, lNum)
  18. sTemp = sTemp - 1
  19. Next lNum
  20. sGetFile = Mid(sGetFile, 2) '得到文件名
  21. Text2 = sGetFile
  22. End Sub
  23. Private Sub Command2_Click()
  24. Unload Me
  25. End Sub
  26. Private Sub Command3_Click()
  27. Text2 = zh(Text2)
  28. End Sub
  29. Private Function zh(name As String)
  30. zh = ""
  31. For i = 1 To Len(name)
  32. zh = zh + g(Asc(Mid(name, i, 1)))
  33. Next
  34. End Function
  35. Private Function g(num As Integer)
  36. Set d = CreateObject("Scripting.Dictionary")
  37. d.Add "a", -20319
  38. d.Add "b", -20283
  39. d.Add "c", -19775
  40. d.Add "d", -19218
  41. d.Add "e", -18710
  42. d.Add "f", -18526
  43. d.Add "g", -18239
  44. d.Add "h", -17922
  45. d.Add "j", -17417
  46. d.Add "k", -16474
  47. d.Add "l", -16212
  48. d.Add "m", -15640
  49. d.Add "n", -15165
  50. d.Add "o", -14922
  51. d.Add "p", -14914
  52. d.Add "q", -14630
  53. d.Add "r", -14149
  54. d.Add "s", -14090
  55. d.Add "t", -13318
  56. d.Add "w", -12838
  57. d.Add "x", -12556
  58. d.Add "y", -11847
  59. d.Add "z", -11055
  60. If num > 0 And num < 160 Then
  61. g = Chr(num)
  62. Else
  63. If num < -20319 Or num > -10247 Then
  64. g = ""
  65. Else
  66. a = d.Items
  67. b = d.keys
  68. For i = d.Count - 1 To 0 Step -1
  69. If a(i) <= num Then Exit For
  70. Next
  71. g = b(i)
  72. End If
  73. End If
  74. End Function
  75. Private Sub Command4_Click()
  76. Dim RetVal
  77. RetVal = Shell("C:\WINDOWS\regedit.EXE", 1)
  78. End Sub
评价一下你浏览此帖子的感受

精彩

感动

搞笑

开心

愤怒

无聊

灌水
级别: 大掌柜
发帖
7343
铜板
6618
人品值
1388
贡献值
28
交易币
100
好评度
7488
信誉值
10
金币
0
所在楼道
学一楼
只看该作者 1 发表于: 2006-06-10
昨天晚上写的?
级别: 终身会员
发帖
3743
铜板
8
人品值
493
贡献值
9
交易币
0
好评度
3746
信誉值
0
金币
0
所在楼道
只看该作者 2 发表于: 2006-06-10
不太懂VB 呵呵
级别: 经院高中
发帖
369
铜板
3800
人品值
215
贡献值
0
交易币
0
好评度
305
信誉值
0
金币
0
所在楼道
只看该作者 3 发表于: 2006-06-11
是啊。。。哎~~~ \6nWt6M  
看完世界杯总得做点事吧。。 =>/aM7]  
nj #Ab  
写个函数,郁闷半天。不知道怎么定义。。
[ 此贴被jackal在2006-06-11 07:22重新编辑 ]
描述
快速回复

您目前还是游客,请 登录注册
欢迎提供真实交流,考虑发帖者的感受
认证码:
验证问题:
3+5=?,请输入中文答案:八 正确答案:八