华硕X555等笔记本电脑重装系统后无法启动的原因

原因是改变了硬盘分区类型,MBR分区请参考如下方法先更新电脑BIOS设置:1.开机的时候长按F2键进入BIOS界面通过方向键进【security】菜单通过方向键选择【SecureBoot Control】选项,将其设定 为Disabled。2.通过方向键进入【Boot】菜单,通过方向键选择【Launch

CSM】选项,将其设定为Enabled。3.点击F10保存设置,重启系统,开机时点击ESC选择启动项即可。

发表在 新闻 | 华硕X555等笔记本电脑重装系统后无法启动的原因已关闭评论

UPS不间断电源供电时间计算

这样计算:1、计算输入端所需功率。小型UPS效率为60%,所以输入功率为:1000W÷60%≈1667VA。

2、计算输入直流电流。接入采用4节12伏100ah电池,串联为48伏,则输入直流电流为:1667(VA)÷48(V)≈34.73A

3、计算供电时间。100(ah)÷34.73(A)≈2.88(小时)。

结果:采用2000VA UPS,连接四节12伏100ah电瓶,可供1000W电器工作约2.88小时。

发表在 NPC任务 | 标签为 | UPS不间断电源供电时间计算已关闭评论

电信移动诈骗电话的根源

目前,网络流行网购,包括淘宝,京东,天猫等,网络购物,app软件,电脑客户端,打着购物,网上理财,网上游戏,论坛,婚介旗帜,利用技术手段,私自收集用户信息,严重存在泄露用户数据及隐私的问题,在这些网购场所中出现非法贩卖个人信息的机构和个人,侵犯公民个人隐私权,建议国家工信部,工商总局,等个个部委,联合查处,这些机构和个人的行为,对各个网购平台,提出更高的技术要求,保障公民隐私权不受侵犯。

严厉打击各类电信诈骗电话。建立黑名单,网络诈骗兼推销电话有:02196833106504,0510-80244069,15695270295,0510-80242926,0373-6307423,021-60562647,17706919921,17185424221,021-23673429,17052713790,13016016305.

 

 

发表在 NPC任务, 广告, 新闻 | 电信移动诈骗电话的根源已关闭评论

Excel 让表格根据日期自动生成打印序号

 

在Excel中做一份表格,要求A1单元格的数值随打印次数自动叠加,如2009年11月13日打印要求打印显示为200911130**(*代表打印次数),日期改变则打印次数归零。请问怎么实现。

按ALT+F11
双击thisworkbook

粘贴下面的代码后即可实现你的目的:

——————————————————————————

Private Sub Workbook_BeforePrint(Cancel As Boolean)
On Error GoTo E
x = Format(Date, “yyyymmdd”)
y = [a1].Value
If Left(y, 8) = x Then
[a1] = y + 1
Else
[a1] = x & “001”
End If
E: End Sub

——————————————————————————

PS:再次打开文件时要启用宏。

发表在 新闻 | Excel 让表格根据日期自动生成打印序号已关闭评论

新增电信诈骗号码

010-50804842北京(中奖类欺诈)

010-50804852

北京(内容同上)

+019665101

(假冒工商银行,诈骗语音电话)

发表在 新闻 | 新增电信诈骗号码已关闭评论

office2010撤销工作表格保护

您是否遇到过这样的情况:您用Excel编制的报表、表格、程序等,在单元格中设置了公式、函数等,为了防止其他人修改您的设置或者防止您自己无意中修改,您可能会使用Excel的工作表保护功能,但时间久了保护密码容易忘记,这该怎么办?

您只要按照以下步骤操作,Excel工作表保护密码瞬间即破!
1、打开您需要破解保护密码的Excel文件;
2、依次点击菜单栏上的工具—宏—-录制新宏,输入宏名字如:aa;
3、停止录制(这样得到一个空宏);
4、依次点击菜单栏上的工具—宏—-宏,选aa,点编辑按钮;
5、删除窗口中的所有字符(只有几个),替换为下面的内容;
从横线下开始复制
——————————————————————————————
Option Explicit
Public Sub AllInternalPasswords()
‘ Breaks worksheet and workbook structure passwords. Bob McCormick
‘ probably originator of base code algorithm modified for coverage
‘ of workbook structure / windows passwords and for multiple passwords

‘ Norman Harker and JE McGimpsey 27-Dec-2002 (Version 1.1)
‘ Modified 2003-Apr-04 by JEM: All msgs to constants, and
‘ eliminate one Exit Sub (Version 1.1.1)
‘ Reveals hashed passwords NOT original passwords
Const DBLSPACE As String = vbNewLine & vbNewLine
Const AUTHORS As String = DBLSPACE & vbNewLine & _
“Adapted from Bob McCormick base code by” & _
“Norman Harker and JE McGimpsey”
Const HEADER As String = “AllInternalPasswords User Message”
Const VERSION As String = DBLSPACE & “Version 1.1.1 2003-Apr-04”
Const REPBACK As String = DBLSPACE & “Please report failure ” & _
“to the microsoft.public.excel.programming newsgroup.”
Const ALLCLEAR As String = DBLSPACE & “The workbook should ” & _
“now be free of all password protection, so make sure you:” & _
DBLSPACE & “SAVE IT NOW!” & DBLSPACE & “and also” & _
DBLSPACE & “BACKUP!, BACKUP!!, BACKUP!!!” & _
DBLSPACE & “Also, remember that the password was ” & _
“put there for a reason. Don’t stuff up crucial formulas ” & _
“or data.” & DBLSPACE & “Access and use of some data ” & _
“may be an offense. If in doubt, don’t.”
Const MSGNOPWORDS1 As String = “There were no passwords on ” & _
“sheets, or workbook structure or windows.” & AUTHORS & VERSION
Const MSGNOPWORDS2 As String = “There was no protection to ” & _
“workbook structure or windows.” & DBLSPACE & _
“Proceeding to unprotect sheets.” & AUTHORS & VERSION
Const MSGTAKETIME As String = “After pressing OK button this ” & _
“will take some time.” & DBLSPACE & “Amount of time ” & _
“depends on how many different passwords, the ” & _
“passwords, and your computer’s specification.” & DBLSPACE & _
“Just be patient! Make me a coffee!” & AUTHORS & VERSION
Const MSGPWORDFOUND1 As String = “You had a Worksheet ” & _
“Structure or Windows Password set.” & DBLSPACE & _
“The password found was: ” & DBLSPACE & “$$” & DBLSPACE & _
“Note it down for potential future use in other workbooks by ” & _
“the same person who set this password.” & DBLSPACE & _
“Now to check and clear other passwords.” & AUTHORS & VERSION
Const MSGPWORDFOUND2 As String = “You had a Worksheet ” & _
“password set.” & DBLSPACE & “The password found was: ” & _
DBLSPACE & “$$” & DBLSPACE & “Note it down for potential ” & _
“future use in other workbooks by same person who ” & _
“set this password.” & DBLSPACE & “Now to check and clear ” & _
“other passwords.” & AUTHORS & VERSION
Const MSGONLYONE As String = “Only structure / windows ” & _
“protected with the password that was just found.” & _
ALLCLEAR & AUTHORS & VERSION & REPBACK
Dim w1 As Worksheet, w2 As Worksheet
Dim i As Integer, j As Integer, k As Integer, l As Integer
Dim m As Integer, n As Integer, i1 As Integer, i2 As Integer
Dim i3 As Integer, i4 As Integer, i5 As Integer, i6 As Integer
Dim PWord1 As String
Dim ShTag As Boolean, WinTag As Boolean
Application.ScreenUpdating = False
With ActiveWorkbook
WinTag = .ProtectStructure Or .ProtectWindows
End With
ShTag = False
For Each w1 In Worksheets
ShTag = ShTag Or w1.ProtectContents
Next w1
If Not ShTag And Not WinTag Then
MsgBox MSGNOPWORDS1, vbInformation, HEADER
Exit Sub
End If
MsgBox MSGTAKETIME, vbInformation, HEADER
If Not WinTag Then
MsgBox MSGNOPWORDS2, vbInformation, HEADER
Else
On Error Resume Next
Do ‘dummy do loop
For i = 65 To 66: For j = 65 To 66: For k = 65 To 66
For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66
For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66
For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126
With ActiveWorkbook
.Unprotect Chr(i) & Chr(j) & Chr(k) & _
Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _
Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
If .ProtectStructure = False And _
.ProtectWindows = False Then
PWord1 = Chr(i) & Chr(j) & Chr(k) & Chr(l) & _
Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _
Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
MsgBox Application.Substitute(MSGPWORDFOUND1, _
“$$”, PWord1), vbInformation, HEADER
Exit Do ‘Bypass all for…nexts
End If
End With
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
Loop Until True
On Error GoTo 0
End If
If WinTag And Not ShTag Then
MsgBox MSGONLYONE, vbInformation, HEADER
Exit Sub
End If
On Error Resume Next
For Each w1 In Worksheets
‘Attempt clearance with PWord1
w1.Unprotect PWord1
Next w1
On Error GoTo 0
ShTag = False
For Each w1 In Worksheets
‘Checks for all clear ShTag triggered to 1 if not.
ShTag = ShTag Or w1.ProtectContents
Next w1
If ShTag Then
For Each w1 In Worksheets
With w1
If .ProtectContents Then
On Error Resume Next
Do ‘Dummy do loop
For i = 65 To 66: For j = 65 To 66: For k = 65 To 66
For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66
For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66
For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126
.Unprotect Chr(i) & Chr(j) & Chr(k) & _
Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _
Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
If Not .ProtectContents Then
PWord1 = Chr(i) & Chr(j) & Chr(k) & Chr(l) & _
Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _
Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
MsgBox Application.Substitute(MSGPWORDFOUND2, _
“$$”, PWord1), vbInformation, HEADER
‘leverage finding Pword by trying on other sheets
For Each w2 In Worksheets
w2.Unprotect PWord1
Next w2
Exit Do ‘Bypass all for…nexts
End If
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
Loop Until True
On Error GoTo 0
End If
End With
Next w1
End If
MsgBox ALLCLEAR & AUTHORS & VERSION & REPBACK, vbInformation, HEADER
End Sub
—————————————————————————————–
复制到横线以上
6、关闭编辑窗口;
7、依次点击菜单栏上的工具—宏—–宏,选AllInternalPasswords,运行,确定两次;
等一会,就会出现以下对话框:这就是Excel密码对应的原始密码(此密码和原先设置的密码都能打开此文档。如果是别人的文档,你又想恢复密码设置,就可以用此密码进行保护,他就能用他设置的密码打开,你可以试试,很有趣的。字母一定要大写):

发表在 NPC任务 | 标签为 , , , , | office2010撤销工作表格保护已关闭评论

电信诈骗电话4001182881

最近,这个新的诈骗方式,伪装成400电话,以赠手机的活动为诱饵,引客户上钩,适机获取客户信息,谋求机会诈骗。

发表在 新闻 | 电信诈骗电话4001182881已关闭评论

手机诈骗号码

利用手机假冒他人进行设计诈骗

手机号码”15577247114″ 广西 柳州 中国联通

 

不定时更新。

发表在 新闻 | 标签为 | 手机诈骗号码已关闭评论

跨境电信诈骗系列案防范意识

见“码”就刷 当心“木马”

一、扫描二维码方式植入木马诈骗:“扫描二维码,领取购物红包。”

警方提醒:不要见“码”就刷,小心二维码扫描诈骗。

二、短信链接钓鱼网站方式植入木马诈骗

警方提醒:勿随意点击陌生网址,更不要轻易安装客户端。

三、“机票改签/航班取消”、“网上购物退款”

警方提醒:不要轻信任何来历不明的电话和短信(尤其是400电话,通常仅供用户打入不会打出);在手机端安装专业的手机安全软件比如腾讯手机管家,可拦截识别绝大多数诈骗电话和诈骗短信。

四、网络虚假投资诈骗,犯罪分子以某某证券公司名义通过互联网、电话、短信等方式散布虚假个股内幕信息及走势,获取事主信任后,又引导其在自身搭建的虚假交易平台上购买期货、现货,从而骗取股民资金。

警方提醒:市民在投资理财时,首先应确定该平台的所属地、性质、资金流向、以往历史等相关资料,做足功课。

五、淘宝刷信誉诈骗,犯罪分子在网上发布刷淘宝信誉的兼职广告,引诱受害者在其提供的淘宝店拍下某订单,并承诺受害者付完款后把订单款和佣金一并打回到受害者账户内,但受害者付完款后犯罪分子称要其再接着拍才能返还订单款行骗。

警方提醒:所有兼职招聘、淘宝刷钻、刷信誉,若要求先支付,交纳保证金、稿费、押金等100%为虚假招聘。

六、“猜猜我是谁”诈骗升级

该类诈骗已升级为“冒充领导”、“冒充中纪委工作人员”诈骗。

警方提醒:陌生来电应多方核实真假。

七、改号软件冒充公检法“变种”

以“法院传票、信息泄露、涉及洗钱”为由,使用改号软件伪装政法机关办公电话,冒充警察、检察官、法官实施诈骗,最新的“变种”形式,不再要求你转入安全账户,而是要求事主自己新开一个账户,然后再通过引诱登录钓鱼网站,通过木马远程控制盗走账户内资金。

警方提醒:警方绝不会通过电话远程作笔录办案,不会要求受访者提供个人的银行卡号、存款账号、密码及身份资料。

发表在 新闻 | 标签为 , , | 跨境电信诈骗系列案防范意识已关闭评论

科学家得出电子质量更精确结果

中学物理讲到原子中的电子质量可以忽略不计,但对于基础物理研究来说电子质量虽小却意义重大。英国新一期《自然》杂志19日刊登一项新成果说,科学家测出了比此前精确13倍的电子质量。正是由于电子的质量极小,对其进行精确测定十分困难。

29_1jjUUXPc5

德国马克斯·普朗克核物理学研究所等机构科研人员报告说,他们利用测定粒子质量的设备“彭宁离子阱”将单个的电子与一个参考离子“绑定”起来。这个离子的质量是已知的,然后利用量子电动力学原理测定它们的总体质量,从而得到电子的质量。

以一种碳-12原子质量的十二分之一作为标准,其他粒子的质量与之相比所得数值即为相对质量。根据此次测得的结果,电子质量为0.000548579909067,这比2006年国际科技数据委员会采用的电子质量精确了13倍。

研究人员说,电子的精确质量关系到原子与分子的结构和性质,对基础物理研究具有重要价值,新测得的结果可使未来对物理学“标准模型”的测试更加精准,从而更好地研究物质基本构成间的相互作用。

发表在 NPC任务, 新闻 | 标签为 | 科学家得出电子质量更精确结果已关闭评论