冰麟轻武 冰麟轻武
关注数: 1 粉丝数: 12 发帖数: 1,628 关注贴吧数: 21
蝴蝶效应3其实有一个非常耐人询问的BUG? 蝴蝶1的穿越只能回到原来时间点的"自己"身上,但是3可以回到原来时间点的任何地点      那么问题就来了      他回来的那个时间点的"原来自己"到哪里去了?      是分身吗,还是原先的自己没了呢?      影片的最后可以看出 他回去锁门的时间 同一时间同一地点没有出现2个自己      那么就说明原来时间点的自己 在自己穿越回去的时间会被穿越的自己所代替      那么问题又来了      他在帮助警方办案的时候回去观察的,没有"改变历史" 所谓的没有改变只有没有改变被害人的历史      但是当时时间点上的自己的历史却被改变了      我们假设一个情节      主人公在1月1日 下午11:00和朋友在酒吧喝酒,喝醉了,在送朋友回去的路上出现车祸,朋友挂了      刚好1月1日下午11:00发生一个凶杀案,主人公在1个月之后穿越回去看凶手      这个时间主人公应该是在酒吧和朋友喝酒的,但是他穿越回去之后去看凶杀案了      显然不可能和朋友喝酒,那么就不可能送朋友回家,也就不会有车祸      那么朋友就不会死      那么他虽然没有帮助凶杀案的人但是实际确救了自己的朋友      这个又要怎么解释呢?      很显然这个比喻夸张了一点 涉及到一个人生死,但是仔细想想,主人公的每次穿越实际上都是在改变历史,比如他这个时间应该在睡觉,一个小偷看见家里有人就没有进来头东西,选择了去别人家偷 但是主人公穿越回去看凶杀案了 家里没有人 小偷就自然而然的偷主人公家里的东西了,那么主人又一次改变了小偷的命运,等等之类的可以举出很多很多,大概这个是编剧没有设计好的地方吧
未用API的全盘搜索,我已经做成模块了~带说明~看看吧!~ 搜索文件夹 函数 返回 Variant() (String) 数组,其中包含所有搜索到的文件夹路径。语法搜索文件夹(FormName, 需要搜索的文件夹())搜索文件夹 函数的语法具有下面的命名参数:部分 说明 FormName 必要参数。窗体名称(Form)。需要搜索的文件夹 必要参数。string()数组,数组每一项代表一个有效的路径,或盘符。--------------------------搜索文件 函数 返回 Variant() (String) 数组,其中包含所有搜索到的文件的完整路径。语法搜索文件夹(FormName, 需要搜索的文件夹(),需要搜索的文件名称,是否显示)搜索文件夹 函数的语法具有下面的命名参数:部分 说明 FormName 必要参数。窗体名称(Form)。需要搜索的文件夹 必要参数。string()数组,数组每一项代表一个有效的路径,或盘符。需要搜索的文件名称 必要参数。支持模糊搜索以及多文件名搜索,格式为"*.exe;*.txt",中间以半角的逗号(,)或分号(;)隔开。是否显示 必要参数。布尔值类型。是否在引用的窗体标题上显示搜索进度,显示会影响运行速度。示例:搜索c,d,e,f盘下所有exe以及txt文件,并且在listbox中显示搜索到文件的完整路径。----------------------------Dim mydi(4) As String, filx As String, i, mydir() As StringList1.Clearmydi(0) = "c"mydi(1) = "d"mydi(2) = "e"mydi(3) = "f"filx = "*.EXE;*.TXT"mydir = 搜索文件夹(Me, mydi())mydir = 搜索文件(Me, mydir(), filx, False)For i = 0 To UBound(mydir)List1.AddItem mydir(i)NextMsgBox timeGetTime - t, 0, "用时"
谁帮我看看代码..为什么为什么? '以下是模块Option ExplicitDeclare Function SetWindowLong Lib "USER32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As LongDeclare Function GetWindowLong Lib "USER32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As LongDeclare Function CallWindowProc Lib "USER32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As LongDeclare Function RegisterHotKey Lib "USER32" (ByVal hwnd As Long, ByVal id As Long, ByVal fsModifiers As Long, ByVal vk As Long) As LongDeclare Function UnregisterHotKey Lib "USER32" (ByVal hwnd As Long, ByVal id As Long) As LongPublic Const WM_HOTKEY = &H312Public Const MOD_ALT = &H1Public Const MOD_CONTROL = &H2Public Const MOD_SHIFT = &H4Public Const GWL_WNDPROC = (-4)Public preWinProc As LongPublic Modifiers As Long, uVirtKey1 As Long, idHotKey As LongPrivate Type taLongll As LongEnd TypePrivate Type t2IntlWord As Integerhword As IntegerEnd TypePublic Function wndproc(ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As LongDim lp As taLong, i2 As t2IntIf Msg = WM_HOTKEY ThenIf wParam = idHotKey Thenlp.ll = lParamLSet i2 = lpIf (i2.lWord = Modifiers) And i2.hword = uVirtKey1 Then'------------------------------------------------------'这里面是快捷键代码,你可以随便改If Clipboard.GetText Like "*(*)*号码*DB*商品名称*游戏/区/服*商品件数*角色名*" ThenForm1.新订单_ClickEnd If'Form1.Visible = Not Form1.Visible'------------------------------------------------------End If'If 订单分析.HS1.Value = 1 Then'订单分析.HS1.Value = 订单分析.HS1.Value - 1'End IfEnd IfEnd If'如果不是热键信息则调用原来的程序wndproc = CallWindowProc(preWinProc, hwnd, Msg, wParam, lParam)End Function
1 下一页