為收集非正式出版單位的內部書刊資料，可采用主動發函或上門訪求的方式進行針對性征集。這種方式能夠有效地擴大資料來源，并確保所征集到的資料具備專業性和可靠性。通過這種方式，不僅可以提高信息獲取的效率，還能增加對非正式出版單位內部書刊資料的全面了解。同時，在進行征集時需要明確所需收集的內容，并選擇適當的時間、地點和方式與相關人員進行溝通，以確保所獲得的資料符合預期要求。
-
-
短信嘛，就不要太長了，給你推薦幾個哈！
從前，有個叫爽的人死了，他家人出殯的時候大哭：爽啊爽，爽啊爽.....
路人見了很奇怪，問“你們爽什么呢？”他家人更傷心了，忙說到：爽死了......
一天妖精綁架唐僧，讓孫悟空拿20萬來贖，唐僧說：我忘了小孫的手機號了。妖精說：那就叫豬八戒來。唐僧：“我剛給他發了短信，他現在正在看呢！”
一個holiday，動物們坐船去玩，結果走到一半，船破了個洞，猴子提議:咱們每個人講一個笑話，只要有一個人沒笑，就把講笑話的人仍下去。說完，猴子率先講了一個，大家都笑了，只有豬沒笑，于是猴子被扔了下去。大象接著講，大家都沒笑，只有豬笑了。動物們很奇怪，問豬：剛才猴子講的那么可笑，你不笑，現在大象講的一點也不好笑，你為什么笑呢？只聽豬慢吞吞的說：哈哈哈，猴子講的笑話實在是太可笑了！” -
縣長到基層視察，晚飯安排在一牧民家。到牧民家，領導客氣先讓牧民進門，牧民受寵說：“還是領導前面走，我們放羊的，再牲口后面走慣了?！笨h長不悅，鄉長連忙請領導坐定，并吩咐牧民上菜，牧民有點不知所措，急忙端上一盤醬豬骨頭，縣長酷愛醬豬骨頭，邊啃邊說：“簡單點就行了，不用這么破費嘛?！蹦撩衩φf：“哪里哪里，不值幾個錢的，平時這都是給狗啃的?！笨h長無語。鄉長連忙讓牧民吃飯，牧民說：“不客氣，領導先用，俺不忙，每天這個點我得先喂豬，然后才吃飯，都習慣了?！?
-
535才可以填的，考慮下2b吧
-
Private Declare Function icePub_closeForm Lib "icePubDll.dll" (ByVal strFormTitle As String) As Integer
Dim a2 As Integer
Dim str1 As String
str1 = "與 龍芯發燒友 交談中"
'QQ聊天窗體標題,換成360安全衛士提示窗體標題試試
a2 = icePub_closeForm(str1)
http://dl.icese.net/dev.php?f=icePubDll.rar 下載