目前分類:VB6.0 (234)

瀏覽方式: 標題列表 簡短摘要

Dim S As String = "" For Each item As Net.IPAddress In Net.Dns.GetHostByName(Net.Dns.GetHostName).AddressList S &= item.AddressFamily.ToString & " " & item.ToString & vbCrLf Next MessageBox.Show(S)


shadow 發表在 痞客邦 PIXNET 留言(0) 人氣()

在VB中使用文字朗讀引擎(TTS)技術(作者:許錦新 2001年04月10日 13:52)
  現今市面上流行的一些英語學習軟體,在廣告詞上經常說自己使用了國際頂尖的全程語音TTS技術,能進行整段英文的流利朗讀,並能自由調節朗讀的速度與頻率等。那麼,這個神奇的TTS究竟是什麼東西呢?

shadow 發表在 痞客邦 PIXNET 留言(0) 人氣()

Common ground: COM access to Domino objects

Level: Advanced

Robert Perron, Documentation Architect, Lotus

03 Jan 2000

shadow 發表在 痞客邦 PIXNET 留言(0) 人氣()

Option Explicit

shadow 發表在 痞客邦 PIXNET 留言(0) 人氣()

Imports System.Data.SqlServerCe

Public Module ConnCEDB

shadow 發表在 痞客邦 PIXNET 留言(0) 人氣()

在工程中要先引入:

NetCon 1.0 Type Library

shadow 發表在 痞客邦 PIXNET 留言(0) 人氣()

迅雷資訊彈出網頁採用UTF-8編碼,需要編制自訂函數對XMLHTTP物件獲得的原始程式碼進行轉換:
PrivateDeclareFunctionMultiByteToWideCharLib"kernel32"(ByValCodePageAsLong,ByValdwFlagsAsLong,ByVallpMultiByteStrAsLong,ByValcchMultiByteAsLong,ByVallpWideCharStrAsLong,ByValcchWideCharAsLong)AsLong
PrivateConstCP_UTF8=65001

shadow 發表在 痞客邦 PIXNET 留言(0) 人氣()

  1. <package>   
  2. <job id="DoneInVBS">   
  3. <script language="VBScript">   
  4. '=====================================設定部分 start===================================   
  5. '本番 FLVフォルダ   
  6. CONST HONBAN_FOLDER_PATH_1 = "\\xx.xx.xx.xxx\d\apache-tomcat-6.0.26-mm\webapps\s2blazeds-server-blank"  
  7. CONST HONBAN_FOLDER_PATH_2 = "\\xx.xx.xx.xxx\d\apache-tomcat-6.0.26-mm\webapps\s2blazeds-server-blank"  
  8. 'STG FLVフォルダ   
  9. CONST STG_FOLDER_PATH = "D:\apache-tomcat-6.0.26-mm\webapps\s2blazeds-server-blank"  
  10. ' net use conn string 本番1  
  11. CONST HONBAN_FOLDER_PATH_GET_1="cmd /c net use \\xx.xx.xx.xxx password /user:xx.xx.xx.xxx\username"  
  12. CONST HONBAN_FOLDER_PATH_DEL_1="cmd /c net use /delete \\xx.xx.xx.xxx"  
  13.   
  14. ' net use conn string 本番2  
  15. CONST HONBAN_FOLDER_PATH_GET_2="cmd /c net use \\xx.xx.xx.xxx password /user:xx.xx.xx.xxx\username"  
  16. CONST HONBAN_FOLDER_PATH_DEL_2="cmd /c net use /delete \\xx.xx.xx.xxx"  
  17. '====================================設定部分 end======================================   
  18. Dim fso   
  19. Dim folder   
  20. Dim objXML   
  21. Dim objList   
  22. Dim obshell   
  23.   
  24. Set objXML = CreateObject("MSXML2.DOMDocument")   
  25. set fso=CreateObject("scripting.filesystemobject")   
  26.   
  27. call GetConn(HONBAN_FOLDER_PATH_GET_1)   
  28. call GetConn(HONBAN_FOLDER_PATH_GET_2)   
  29.   
  30. Call DeleteFLV(STG_FOLDER_PATH)   
  31. Call DeleteFLV(HONBAN_FOLDER_PATH_1)   
  32. Call DeleteFLV(HONBAN_FOLDER_PATH_2)   
  33.   
  34. call DeleteConn(HONBAN_FOLDER_PATH_DEL_1)   
  35. call DeleteConn(HONBAN_FOLDER_PATH_DEL_2)   
  36.   
  37. Sub DeleteFLV(folderPath)   
  38.     Set folder = fso.getfolder(folderPath)   
  39.     objXML.Load(folderPath & "\stream.xml")   
  40.     Set objList = objXML.getElementsByTagName("flvurl")   
  41.   
  42.     For Each file In folder.Files                        
  43.        
  44.         If right(file.name,3)="flv" Then   
  45.             flg=0  
  46.             For i=0 To objList.length - 1  
  47.                 If file.name=objList.Item(i).text Then   
  48.                        
  49.                     flg=1  
  50.                     Exit For   
  51.                 End If   
  52.             Next   
  53.            
  54.             If flg =0 Then   
  55.                 WScript.Echo file.name & "が削除されました。"  
  56.                 file.delete   
  57.             End If     
  58.            
  59.         End If   
  60.     Next   
  61.        
  62.     set folder = fso.getfolder(folderPath & "\BACKUP")   
  63.        
  64.     For Each file In folder.Files   
  65.         If fso.FileExists(file) then   
  66.             WScript.Echo file.name & "が削除されました(バックアプ)。"  
  67.             file.delete   
  68.         End If   
  69.     Next   
  70.        
  71. End Sub   
  72.   
  73. '#============================   
  74. '#  Get Connection   
  75. '#============================   
  76. Sub GetConn(connStr)   
  77.     
  78.      Set obshell = CreateObject("wscript.shell")       
  79.              obshell.run connStr,0,true    
  80.  End Sub   
  81. '#============================   
  82. '#  Close Connection   
  83. '#============================   
  84.  Sub DeleteConn(connStr)   
  85.     
  86.      Set obshell = CreateObject("wscript.shell")       
  87.              obshell.run connStr,0,true   
  88.  End Sub    
  89.     
  90. set folder = nothing   
  91. set objList = nothing   
  92. set obshell=nothing   
  93. set objXML = nothing   
  94. set fso = nothing      
  95. </script>   
  96. </job>   
  97. </package>  

   


shadow 發表在 痞客邦 PIXNET 留言(0) 人氣()

關於怎樣用vb程式對win2000和win2003下NTFS格式的磁片上的檔及資料夾進行使用者許可權操作,在論壇上發貼和在msdn搜到程式在對許可權操作的時候都出現問題:
在資料夾使用繼承屬性時,用程式設置過資料夾的許可權後,打開資料夾的"屬性-》安全"標籤的時候提示「XXXX 上的許可權順序不正確,可能導致某些資料無法作用。請按「確定」以繼續並將許可權正確排序,或按「取消」來重定許可權。
在在資料夾不是使用繼承屬性時,設置後許可權正常!

shadow 發表在 痞客邦 PIXNET 留言(0) 人氣()

標準 EXE 常式下載
HTTP://microinfo.top263.net/Zip/WskQQExe.zip

shadow 發表在 痞客邦 PIXNET 留言(0) 人氣()

原型函數簡介:

shadow 發表在 痞客邦 PIXNET 留言(0) 人氣()

:Option Explicit

Dim functionCtrl As Object

shadow 發表在 痞客邦 PIXNET 留言(0) 人氣()

Private Sub Command1_Click()
Wb1.Navigate "HTTP://warlord.duowan.com/f1.html"
'連接到網站

shadow 發表在 痞客邦 PIXNET 留言(0) 人氣()

HitTest方法, 在指定的螢幕座標位置檢索子物件。(這個解釋是.net下說明,VB6下應該一樣的,有什麼問題的話朋友們可以回貼告訴我)

在VB6兩個用的比較多的控制項:ListView TreeView,如果我們通過滑鼠移動來獲取當前位置的內容,可以利用控制項中HitTest方法來獲取。下面例子是個顯示滑鼠位置提示資訊,有興趣的可以參考一下:

shadow 發表在 痞客邦 PIXNET 留言(0) 人氣()

  'download by HTTP://www.codefans.net
  '**系統名稱:瘋狂QQ日誌人氣 v1.1

shadow 發表在 痞客邦 PIXNET 留言(0) 人氣()

用VB調用VC編寫的DLL時,必須注意參數的匹配。VC中的變數,都是採用的32位,而VB中的,很多是16位,這就要進行相應的轉化。轉化的法則很多地方都有。我這裡建議大家儘量使用VB,VC中都有,而且一致的變數。比如long型和double型。如果可能,儘量採用這些簡單的變數類型。可以省缺很多麻煩。

shadow 發表在 痞客邦 PIXNET 留言(0) 人氣()

  製作安裝程式往往是程式設計的最後一步,同時也是重要的一步,因為運行安裝程式往往是使用者的第一個操作。下面就介紹一些製作 Visual Basic 安裝程式時常遇到問題的解決方法。
  1 、一個非常簡單的 VB 程式是否可以不製作安裝程式
  問:假如我的 VB5 開發的程式很簡單,只用到了 ShellExecute() 這個 API , 以及 Command Button ,我能不能不做安裝盤,在所有客戶機器上( WIN95/98/NT )都能正常使用程式?如不製作安裝程式,與 EXE 放一起的應該包括哪些檔?

shadow 發表在 痞客邦 PIXNET 留言(0) 人氣()

sanjiao  

分割三角形的方法是從一個大的等邊三角形開始,將其三邊的中點進行連線,分成相同的四個三角形,除中間外的三個三角形再重複上述過程,直到滿足給定條件的層次數為止.


shadow 發表在 痞客邦 PIXNET 留言(0) 人氣()

endurer 原創
  有網友反映,他所在的公司的局域網上的所有電腦中的共用文件都會生成MicrosoftSQL.exe,用瑞星未查殺,刪除又會生成。並把MicrosoftSQL.exe發給我。

shadow 發表在 痞客邦 PIXNET 留言(0) 人氣()

一. 調用系統「創建快捷方式」嚮導
  是否為VB不支援創建快捷方式而于著急呢?雖然您可以調用vb5stkit.dll中的fCreateShellLink函數,但它是為安裝程式設計的,快捷方式的預設路徑總是從當前使用者的「\Start Menu\Programs」開始,也就是說,如果您的Windows95裝在C盤上,您無法通過 fCreateShellLink 函數把快捷方式創建到D盤上去。

shadow 發表在 痞客邦 PIXNET 留言(0) 人氣()