找回密码
 加入
搜索
AUTOIT CN»论坛 › AU3交流 › 『 提问交流 』 › 已解决问题区 › [已解决]本人初学者，希望学习一下！ 如何从记事本导入 ...
12下一页
返回列表 发新帖
查看: 10310|回复: 15

[AU3基础] [已解决]本人初学者，希望学习一下！ 如何从记事本导入账号密码到列表框

 火.. [复制链接]
mshuking
发表于 2014-12-10 21:29:46 | 显示全部楼层 |阅读模式
本帖最后由 mshuking 于 2014-12-12 15:45 编辑

本人初学者，希望学习一下！
如何从记事本导入账号密码到列表框
感谢user3000的无私奉献代码如下：
#include <GUIConstantsEx.au3>
#include <ListViewConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
$Form1 = GUICreate("测试", 460, 244)
;$ListView1 = GUICtrlCreateListView("账号|密码|状态", 0, 0, 458, 214)
$ListView1 = GUICtrlCreateListView("账号|密码|状态", 0, 0, 458, 214)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, 150);调整宽度
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 1, 150);调整宽度
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 2, 150);调整宽度
GUICtrlSendMsg($ListView1, $LVM_SETEXTENDEDLISTVIEWSTYLE, $LVS_EX_GRIDLINES, $LVS_EX_GRIDLINES);设置表格边框
GUICtrlSetCursor(-1, 0);鼠标指针
GUISetState(@SW_SHOW)

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
  Case $GUI_EVENT_CLOSE
   Exit
EndSwitch
WEnd
右键    导入   选择记事本   导入


记事本：
hh1234561---67892
hh1234562---67892
hh1234563---67892
hh1234564---67892
hh1234565---67892
hh1234567---67892
hh1234568---67892
hh1234569---67892
账号密码不限多少个 !

在此感谢大家。。。。。。。。。…。。…。………
include, IP地址, 初学者, 计算机, 记事本

本帖子中包含更多资源

您需要 登录 才可以下载或查看，没有账号？加入

×

相关帖子
回复

举报

Au3代码高亮发贴标签： [AU3] 你的代码 [/AU3]                   支持论坛的发展，请添加此》》网址导航《《为您的主页          
user3000
发表于 2014-12-10 21:55:58 | 显示全部楼层
回复 1# mshuking 
Func _add_lv_item()
        Local $file = FileOpenDialog('选择你的数据文件', @ScriptDir, '文本文件(*.txt)')
        If @error Then Return
        Local $sTXT = FileRead($file)
        ;$sTXT = ClipGet()
        Local $aText = StringRegExp($sTXT, '.+-{3}.+', 3)
        If @error Then Return
        For $i = 0 To UBound($aText) - 1
                GUICtrlCreateListViewItem(StringReplace($aText[$i], '---', '|'), $ListView1)
        Next
EndFunc
回复

举报

austere
发表于 2014-12-11 08:33:18 | 显示全部楼层
我感觉用记事本不如用ini存储，这样读的时候也方便~  直接把--- 替换成 = 保存为ini多好~
回复

举报

mshuking
 楼主| 发表于 2014-12-11 14:30:27 | 显示全部楼层
我感觉用记事本不如用ini存储，这样读的时候也方便~  直接把--- 替换成 = 保存为ini多好~
austere 发表于 2014-12-11 08:33



    有具体脚本吗
回复

举报

mshuking
 楼主| 发表于 2014-12-11 14:31:05 | 显示全部楼层
回复  mshuking
user3000 发表于 2014-12-10 21:55



    不知道如何调用。。。。
回复

举报

austere
发表于 2014-12-11 15:16:25 | 显示全部楼层
人家都给你发源码了，你稍微修改一下~~ 这么一点都懒的做啊？
#include <GUIConstantsEx.au3>
#include <ListViewConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
$Form1 = GUICreate("测试", 460, 244)
;$ListView1 = GUICtrlCreateListView("账号|密码|状态", 0, 0, 458, 214)
$ListView1 = GUICtrlCreateListView("账号|密码|状态", 0, 0, 458, 214)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, 150);调整宽度
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 1, 150);调整宽度
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 2, 150);调整宽度
GUICtrlSendMsg($ListView1, $LVM_SETEXTENDEDLISTVIEWSTYLE, $LVS_EX_GRIDLINES, $LVS_EX_GRIDLINES);设置表格边框
GUICtrlSetCursor(-1, 0);鼠标指针
GUISetState(@SW_SHOW)
_add_lv_item("123.txt")  ;在这个（）内输入你的文本文件的路径

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
  Case $GUI_EVENT_CLOSE
   Exit
EndSwitch
WEnd

Func _add_lv_item($file)
        If @error Then Return
        Local $sTXT = FileRead($file)
        ;$sTXT = ClipGet()
        Local $aText = StringRegExp($sTXT, '.+-{3}.+', 3)
        If @error Then Return
        For $i = 0 To UBound($aText) - 1
                GUICtrlCreateListViewItem(StringReplace($aText[$i], '---', '|'), $ListView1)
        Next
EndFunc
回复

举报

mshuking
 楼主| 发表于 2014-12-11 19:05:23 | 显示全部楼层
本帖最后由 mshuking 于 2014-12-11 19:06 编辑
人家都给你发源码了，你稍微修改一下~~ 这么一点都懒的做啊？
austere 发表于 2014-12-11 15:16



  非常感谢。。。。。我才刚入门  不是高手
以上代码 我试了加了 没反应  应该是缺少右键
$Form1 = GUICreate("测试", 460, 244)
$ListView1 = GUICtrlCreateListView("账号|密码|状态", 0, 0, 458, 214)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, 150);调整宽度
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 1, 150);调整宽度
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 2, 150);调整宽度
GUICtrlSendMsg($ListView1, $LVM_SETEXTENDEDLISTVIEWSTYLE, $LVS_EX_GRIDLINES, $LVS_EX_GRIDLINES);设置表格边框
GUICtrlSetCursor(-1, 0);鼠标指针
GUISetState(@SW_SHOW)
GUICtrlSetColor($hListView1, 0x0055ff);设置指定控件的文本颜色
GUICtrlSetResizing($hListView1, $GUI_DOCKLEFT + $GUI_DOCKRIGHT + $GUI_DOCKMENUBAR);设置某个控件的大小调整方式
$menu_C = GUICtrlCreateContextMenu($hListView1);创建上下文菜单(右键)
$menu_C1 = GUICtrlCreateMenuItem("清除信息[&Q]", $menu_C);创建一个菜单项目控件
GUICtrlCreateMenuItem("", $menu_C);创建一个菜单项目控件
$menu_C2 = GUICtrlCreateMenuItem("读取信息[&V]", $menu_C);创建一个菜单项目控件
不是很会用
                Case $menu_C1
                        Func _add_lv_item()
                 Local $file = FileOpenDialog('选择你的数据文件', @ScriptDir, '文本文件(*.txt)')
                 If @error Then Return
                 Local $sTXT = FileRead($file)
                ;$sTXT = ClipGet()
                 Local $aText = StringRegExp($sTXT, '.+-{3}.+', 3)
                 If @error Then Return
                 For $i = 0 To UBound($aText) - 1
                GUICtrlCreateListViewItem(StringReplace($aText[$i], '---', '|'), $ListView1)
        Next
EndFunc
        EndSwitch
WEnd
回复

举报

逆水风帆
发表于 2014-12-11 19:14:18 | 显示全部楼层
我也觉得还是ini方便，数据多一些可以弄成数据库
回复

举报

user3000
发表于 2014-12-11 21:34:44 | 显示全部楼层
回复 5# mshuking


    帮一下新朋友. 多多努力;多查看某函数的帮助,多实践,运行实例;坚持个把星期就会有一定水准啦.

#include <GUIConstantsEx.au3>
#include <ListViewConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
Global $LastItem = -1 ; 记录最后创建的列表项目ID, 删除时用得上.
$Form1 = GUICreate("测试", 460, 244)
$ListView1 = GUICtrlCreateListView("账号|密码|状态", 0, 0, 458, 214)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, 180);调整宽度
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 1, 150);调整宽度
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 2, 110);调整宽度
GUICtrlSendMsg($ListView1, $LVM_SETEXTENDEDLISTVIEWSTYLE, $LVS_EX_GRIDLINES, $LVS_EX_GRIDLINES);设置表格边框
GUICtrlSetCursor(-1, 0);鼠标指针

$Context = GUICtrlCreateContextMenu($ListView1)
$LoadData = GUICtrlCreateMenuItem("导入数据", $Context)
GUICtrlCreateMenuItem("", $Context)
$ClearData = GUICtrlCreateMenuItem("清空数据", $Context)
GUICtrlCreateMenuItem("", $Context)
$Quit = GUICtrlCreateMenuItem("退出", $Context)

GUISetState(@SW_SHOW)
While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case $GUI_EVENT_CLOSE, $Quit
                        Exit
                Case $LoadData
                        _add_lv_item()
                Case $ClearData
                        _clear_lv_item()
        EndSwitch
WEnd

Func _add_lv_item()
        Local $file = FileOpenDialog('选择你的数据文件', @ScriptDir, '文本文件(*.txt)')
        If @error Then Return SetError(1); 没选定文件,直接跳出函数
        Local $sTXT = FileRead($file)
        $sTXT = ClipGet() ;此句调试用,直接从剪贴板读数据
        Local $aText = StringRegExp($sTXT, '.+-{3}.+', 3) ;正则获取数据
        If @error Then Return SetError(2) ; 获取帐户密码数据出错,数据格式不符?
        If $LastItem <> -1 Then
                If MsgBox(1 + 32, '清除数据', '是否清空旧数据?', 5, $Form1) = 1 Then _clear_lv_item()
        EndIf
        For $i = 0 To UBound($aText) - 1
                $LastItem = GUICtrlCreateListViewItem(StringReplace($aText[$i], '---', '|'), $ListView1) ;创建列表项目
        Next
EndFunc 

Func _clear_lv_item()
        If $LastItem Then
                For $i = $Quit + 1 To $LastItem
                        GUICtrlDelete($i) ; 删除所有项目的控件id
                Next
                GUICtrlSendMsg($ListView1, $LVM_DELETEALLITEMS, 0, 0) ;  删除所有列表项目
                $LastItem = -1 ;重置此ID纪录
        EndIf
EndFunc
回复

举报

weeks5
发表于 2014-12-12 08:26:03 | 显示全部楼层
谢谢学习。。。。。
回复

举报

xfxecs
发表于 2014-12-12 11:41:24 | 显示全部楼层
同学习了 同是新人
回复

举报

mshuking
 楼主| 发表于 2014-12-12 13:24:47 | 显示全部楼层
回复  mshuking


    帮一下新朋友. 多多努力;多查看某函数的帮助,多实践,运行实例;坚持个把星期就会有 ...
user3000 发表于 2014-12-11 21:34



   非常感谢 学习了
回复

举报

menfan1
发表于 2014-12-14 10:23:11 | 显示全部楼层
账户密码放在数据库里，然后加解密的就更有用了：）
回复

举报

vfhptuu
发表于 2014-12-14 21:53:03 | 显示全部楼层
我也是新手，谢谢楼上各位大大的代码！！
回复

举报

qddoit
发表于 2014-12-16 03:58:24 | 显示全部楼层
151515151551
回复

举报

下一页 »
12下一页
返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 加入

本版积分规则

QQ|手机版|小黑屋|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度

GMT+8, 2024-12-23 08:02 , Processed in 0.140256 second(s), 24 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表