同济大学浙江学院论坛

标题: 【随手写的程序】闪翼v0.9 [打印本页]

作者: CHAN.S 时间: 2012-11-27 17:11
标题: 【随手写的程序】闪翼v0.9
本帖最后由 CHAN.S 于 2012-11-27 21:14 编辑

版本0.9.0 ：
因为是随手写的，功能不太完善，目前可供静态密码的童鞋使用
需要把程序拖到 C:\Users\Administrator\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup\       【开机启动文件夹】
这样的话，开机就会自动连接闪讯，而且没有一开始的闪讯提示和闪讯页面及广告。
一开机就发现闪讯已自动连接上了，什么都不用点。(不会有任何页面弹出）

注意事项：
1.  0.9版仅供静态密码的同学使用，而且账号及密码必须在闪讯中已保存
2.  此程序在开机运行是隐藏的，自动连接上闪讯，去广告后，会自动关闭。不需要人工关掉它
3.  闪讯必须默认安装在C:\ChinaNetSn

Pro1.rar (4.16 KB, 下载次数: 19)

ps:动态密码全自动版，我构想是这样的，
程序首先自动连接闪讯手机发出的无线热点，然后通过114school获取密码。然后再在闪讯中登录。
貌似有点麻烦

等有空了，先出个手动版的。。

作者: 西红柿炒番茄。 时间: 2012-11-27 17:14
技术帖

作者: 华灯初上。 时间: 2012-11-27 17:16

作者: shinshen 时间: 2012-11-27 17:18

作者: 发烧30度 时间: 2012-11-27 17:20
又见大神新作，，，

作者: CHAN.S 时间: 2012-11-27 17:20
代码：
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _
ByVal hwnd As Long, _
ByVal lpOperation As String, _
ByVal lpFile As String, _
ByVal lpParameters As String, _
ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" ( _
ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" ( _
ByVal hwnd As Long, _
ByVal wMsg As Long, _
ByVal wParam As Long, _
ByVal lParam As Long) As Long

Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" ( _
ByVal hwnd As Long, _
ByVal wMsg As Long, _
ByVal wParam As Long, _
ByVal lParam As Long) As Long

Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" ( _
ByVal hWnd1 As Long, _
ByVal hWnd2 As Long, _
ByVal lpsz1 As String, _
ByVal lpsz2 As String) As Long

Private Declare Function GetDlgItem Lib "user32" ( _
ByVal hDlg As Long, _
ByVal nIDDlgItem As Long) As Long

Private Declare Sub Sleep Lib "Kernel32" ( _
ByVal dwMilliseconds As Long)

Public Const KEY_ENTER = 13
Public Const TEXT_STATE = "状态:"

Private Const NUM_ERROR = 32
Private Const SW_SHOWNORMAL = 1
Private Const WM_SYSCOMMAND = &H112
Private Const SC_MINIMIZE = &HF020&
Private Const WM_SETTEXT = 12
Private Const WM_LBUTTONDOWN = &H201
Private Const WM_LBUTTONUP = &H202
Private Const WM_CLOSE = &H10

Dim mhandle As Long
Dim chandle As Long

Private Function OpenNetKeeper() As Boolean
Dim sysdrive As String
Dim path As String
Dim state As Long
Dim location As String
sysdrive = Environ("SYSTEMDRIVE")
path = sysdrive & "\ChinaNetSn\bin\Netkeeper.exe"
location = sysdrive & "\ChinaNetSn\bin\"
state = IIf(Dir(path) <> "", ShellExecute(vbNull, "open", path, vbNullString, location, SW_SHOWNORMAL), 0)
If state < NUM_ERROR Then OpenNetKeeper = False: Exit Function
Do
      mhandle = FindWindow("#32770_nkDialog_{6E1C7E0B-9380-4f69-A8D8-393F70589DE1}", vbNullString) '闪讯
      DoEvents
Loop Until mhandle <> 0
Call PostMessage(mhandle, WM_SYSCOMMAND, SC_MINIMIZE, vbNull)
OpenNetKeeper = True
End Function

Private Function SendPassword() As Boolean
Dim phandle As Long
Dim password As String
Sleep (100) '等待
DoEvents
chandle = FindWindowEx(mhandle, 0&, "#32770", vbNullString)
phandle = GetDlgItem(chandle, &H412)
password = Fmain.Tpass.Text
If password = vbNullString Then SendPassword = True: Exit Function '静态密码
If phandle <> 0 Then Call PostMessage(phandle, WM_SETTEXT, 0, ByVal password) Else SendPassword = False: Exit Function
SendPassword = True
End Function
Private Function Login() As Boolean
Dim bhandle As Long
bhandle = GetDlgItem(chandle, &H3F2)
If bhandle <> 0 Then
      PostMessage bhandle, WM_LBUTTONDOWN, ByVal 0&, ByVal 0&
      PostMessage bhandle, WM_LBUTTONUP, ByVal 0&, ByVal 0&
Else
      Login = False: Exit Function
End If
Login = True
End Function

Private Sub Minimize()
Dim ahandle As Long
Do
      ahandle = FindWindowEx(mhandle, 0&, "AfxWnd42", vbNullString)
      DoEvents
Loop Until ahandle <> 0
SendMessage mhandle, WM_CLOSE, ByVal 0&, ByVal 0&
End Sub
Public Function OperateNetKeeper() As Boolean
If Not OpenNetKeeper() Then OperateNetKeeper = False: Exit Function
If Not SendPassword() Then OperateNetKeeper = False: Exit Function
If Not Login() Then OperateNetKeeper = False: Exit Function
Call Minimize
'MsgBox "Finished!", , ""
OperateNetKeeper = True
End Function

作者: wjk2002 时间: 2012-11-27 17:22
不是说动态密码么

作者: CHAN.S 时间: 2012-11-27 17:24

wjk2002 发表于 2012-11-27 17:22
不是说动态密码么

这个版本只能供静态密码的童鞋用

因为我只是使用了闪讯中保存的数据，
如果密码是动态的，呵呵~你懂的

作者: CHAN.S 时间: 2012-11-27 17:26
我会更新下去的...因为我用的就是动态密码

作者: wjk2002 时间: 2012-11-27 17:28
。。怎么会有的人动态有的人静态啊

作者: CHAN.S 时间: 2012-11-27 17:32

wjk2002 发表于 2012-11-27 17:28
。。怎么会有的人动态有的人静态啊

好吧。。感觉动态的，写出来没啥用。。因为密码肯定要输入的

顶多去个广告
哎哎！闪讯快改静态密码，这样的话我的程序就有用啦

作者: 叛逆の飞鸟 时间: 2012-11-27 17:32

大神膜拜啊

作者: G懒懒 时间: 2012-11-27 17:40

大神

作者: 忐忑ら天真 时间: 2012-11-27 17:53

我去弄弄看

作者: 忐忑ら天真 时间: 2012-11-27 17:57

版主辛苦了

作者: 忐忑ら天真 时间: 2012-11-27 17:58

我不会弄啊、看不懂

作者: 『文。木』 时间: 2012-11-27 18:08
lz
牛人

作者: 新生 时间: 2012-11-27 18:14
大神

作者: chx1j2 时间: 2012-11-27 18:38
我们学校也有神人啊

作者: 懒淝淝 时间: 2012-11-27 19:20
膜拜神人。。。其实动态密码的也有用的，最近闪讯广告多了不少。

作者: 丶語澤灬 时间: 2012-11-27 19:35
看着很高端的样子。。但是还是要问一下代码是什么意思是这个插件的源代码？

作者: 云中圣贤 时间: 2012-11-27 20:03
动态密码可以试试通过114school网站对密码保护的post，然后获取密码。我暂时有这个想法，不过懒得去实现，哈哈

作者: 落寞的猴子 时间: 2012-11-27 20:11
= =为啥不早两年搞出来！！！

作者: ＂﹎已漠﹖ 时间: 2012-11-27 20:19

落寞的猴子发表于 2012-11-27 20:11
= =为啥不早两年搞出来！！！

因为那时你在嘉兴

作者: 无极遵 时间: 2012-11-27 20:39
帮顶

作者: 咿呀 时间: 2012-11-27 20:55

大神

作者: CHAN.S 时间: 2012-11-27 21:09

云中圣贤发表于 2012-11-27 20:03
动态密码可以试试通过114school网站对密码保护的post，然后获取密码。我暂时有这个想法，不过懒得去实现 ...

这个...额....但问题是首先需要网络....

作者: 云中圣贤 时间: 2012-11-27 21:12

CHAN.S 发表于 2012-11-27 21:09
这个...额....但问题是首先需要网络....

CMCC or EDU 都可以自动连接……

作者: CHAN.S 时间: 2012-11-27 21:18

云中圣贤发表于 2012-11-27 21:12
CMCC or EDU 都可以自动连接……

恩。到时候试试。不过目前手动版的还有一个问题要解决。。。

作者: 尛佐 时间: 2012-11-27 22:10
来个发帖际遇~

作者: 丶語澤灬 时间: 2012-11-27 22:36
LS比较吊。。。

作者: 我渡有缘人 时间: 2012-11-27 22:38

作者: 落寞的猴子 时间: 2012-11-27 23:07

＂﹎已漠﹖ 发表于 2012-11-27 20:19
因为那时你在嘉兴

然后明年我回嘉兴的时候该漏洞已被修复。。。

作者: ＂﹎已漠﹖ 时间: 2012-11-28 12:44

落寞的猴子发表于 2012-11-27 23:07
然后明年我回嘉兴的时候该漏洞已被修复。。。

很对。

作者: CHAN.S 时间: 2012-11-28 12:55
上次论坛我看到，某某说，他在写闪讯登录器。。求出现！！！我遇到了个问题

作者: CHAN.S 时间: 2012-11-28 12:56

云中圣贤发表于 2012-11-27 20:03
动态密码可以试试通过114school网站对密码保护的post，然后获取密码。我暂时有这个想法，不过懒得去实现 ...

求指导！

作者: 云中圣贤 时间: 2012-11-28 22:43

CHAN.S 发表于 2012-11-28 12:56
求指导！

我是理论帝，哈哈，指导不了，以后可以一起交流下。

作者: axixi 时间: 2012-12-3 23:30
给程序猿下跪

作者: 凍結 时间: 2012-12-5 10:00

欢迎光临同济大学浙江学院论坛 (http://www.tjzjbbs.com/)