判断论坛COOKIE可以很好的防止版本外传。

霸占YOU

实现起来也很简单，用我会的语言两句即可。

易语言代码：
.版本 2
文件名称 ＝ 寻找文件 (特定目录 (33) ＋ “*@www.网址*.txt”, 32)
.判断开始 (文件名称 ≠ “”)
    信息框 (“可以使用！”, 0, )
.默认
    信息框 (“无法使用！”, 0, )

希望对小宋有用。

[ 本帖最后由 霸占YOU 于 2008-10-5 18:19 编辑 ]

z4y4

请问是哪种高科技，请明示

我爱舒畅

居然被你发现了

SONGBOWEN

易语言？
我想翻译成VC或者VB的，不过有点头晕。。。。

本帖做E语言转VB学习笔记吧。。。。

“特定目录”应该是一个函数，特定目录 (33)应该等于系统的%USERPROFILE%\Cookies目录，
对应VB就是Environ("USERPROFILE") & "\Cookies"

寻找文件应该是通过FindFirstFile和FindNextFile函数加上一个Do-While循环实现的，暂时放一放。

“判断开始”应该就是 If 语句了，判断内容是上面那两个API函数是否找到了符合条件的文件。

代码完成～

1. 
   
2. Private Declare Function FindFirstFile Lib "kernel32" Alias "FindFirstFileA" (ByVal lpFileName As String, lpFindFileData As WIN32_FIND_DATA) As Long
   
3. Private Declare Function FindNextFile Lib "kernel32" Alias "FindNextFileA" (ByVal hFindFile As Long, lpFindFileData As WIN32_FIND_DATA) As Long
   
4. Private Declare Function FindClose Lib "kernel32" (ByVal hFindFile As Long) As Long
   
5. 
   
6. Private Const MAX_PATH = 260
   
7. 
   
8. Private Type FILETIME
   
9.     dwLowDateTime   As Long
   
10.     dwHighDateTime   As Long
    
11. End Type
    
12. 
    
13. Private Type WIN32_FIND_DATA
    
14.     dwFileAttributes   As Long
    
15.     ftCreationTime   As FILETIME
    
16.     ftLastAccessTime   As FILETIME
    
17.     ftLastWriteTime   As FILETIME
    
18.     nFileSizeHigh   As Long
    
19.     nFileSizeLow   As Long
    
20.     dwReserved0   As Long
    
21.     dwReserved1   As Long
    
22.     cFileName   As String * MAX_PATH
    
23.     cAlternate   As String * 14
    
24. End Type
    
25. 
    
26. Private Sub Command1_Click()
    
27.     Dim fileData As WIN32_FIND_DATA
    
28.     Dim hFile As Long
    
29.     Dim lRet As Long
    
30.     Dim szFileName As String
    
31.     hFile = FindFirstFile(Environ("USERPROFILE") & "\Cookies\*@bbs.kafan.txt", fileData)
    
32.     If fileData.cFileName = String(260, vbNullChar) Then
    
33.         MsgBox "无卡饭论坛Cookies，程序退出"
    
34.         End
    
35.     Else
    
36.         MsgBox "已经找到了卡饭论坛的Cookies"
    
37.     End If
    
38.     FindClose (hFile)
    
39. End Sub
    

复制代码

思路还可以，可惜不如我的思路BT，哈哈哈

[ 本帖最后由 SONGBOWEN 于 2008-10-5 22:31 编辑 ]

伊の星

呃，条件限制有点宽了
无法判断是否会员

SONGBOWEN

原帖由 etly 于 2008-10-5 21:58 发表
呃，条件限制有点宽了
无法判断是否会员

嗯，这是个问题……