斑竹或經驗丰富者進

2002-04-14 03:28:21 78 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

防止加入域主机脱离域的控制（管理员权限）一、简介　　当公司所有主机加入到域后，SA首要工作就是防止加入域的主机脱离域的控制。让我发现该工作的必要性是一程序猿，前一天刚配完禁止执行QQ、微信执行，第二天就看到那家伙在用微信聊天，肯定是用回旧的本地账号登陆了。　　本人所在公司安装软件的类型繁杂，无管理员权限运行不少软件会报错，不得不授予「域账号」本地管理员权限。过大的权限带也来了一系列后果：用户可随意退出域、创建本地管理员... 阅读详情

在下可用分只有56分了,全給
如和在VB中調用各种語言包,例如在繁体Windows下調用簡體語言包能顯示簡體(GBK)的漢字,在簡體Windows下調用繁体(Big5)語言包,顯示繁体字,不過我說的不是簡繁体的轉換,BIG与 GB碼的轉換我會,
我就是實現IE的編碼轉換,不過我要實現的是在Richbox中實現,而不是用WebBrowser
實現,各位多幫手了,先謝

...全文

Python+Vue计算机毕业设计风电场监控系统的设计与实现7bd6i（程序+LW+源码+部署） Python3.7.7+Django+Mysql5.7+pip list+HBuilderX（Vscode也行）+Vue+Pychram社区版。2. 前端：vue+css+javascript+jQuery+easyUI+highcharts。2.IDE环境：Python和Python 社区版都可以。Django + Vue +Python+Mysql 等等组成，B/S模式等等。该项目含有源码、文档、程序、数据库、配套开发软件、软件安装教程。1. 后端：Python、Vue、Django、Mysql。阅读详情

thorkhan

VB基础类 7,788 成员 197,583 内容

+ 关注 + 加入社区

切换为时间正序

fuxc 2002-04-16

打赏
举报

首先，IE显示繁体字，用的是繁体字库：MingLiu，其中字符编码，用的是ANSI，但VB有一个问题，当你进行字符串赋值的时候，VB会自动把ANSI转换成Unicode，所以无法通过调用字库来显示，这一点，我还是没有办法。

如果通过转换Unicode来显示，问题只是慢的话，我推荐你看一篇文章：

http://llf.my.west163.com/studio/unicode.htm

sunlife 2002-04-16

打赏
举报

要显示特定格式的字体，系统要有相应的字库才行，要不程序能调用自带的字库也可以（这个我不会，菜鸟一个）；ie那个编码也是要有相应的字库才能进行的，要不怎么有时候上网会提示安装字体呢

fuxc 2002-04-16

打赏
举报

VB中可以用Byte数组来处理ANSI、DBCS字符集，但当你赋指给文本类型（或者隐式地转换成文本类型）时，VB自动把他转换成Unicode，所以不管你把文本赋值给RichTexBox的Text属性，还是RichText属性，都没有机会把它当作Ansi来处理，如果一定要用VB处理的话，只能想办法在转换过程中提高效率，

我上面提供的一个网址是个个人网页，作者在这方面很有经验，你可以跟他联系一下。

fuxc 2002-04-16

打赏
举报

ANSI 和 Unicode 的定义

Visual Basic 使用 Unicode 存储和操作字符串。Unicode 是一种用两个字节表示一个字符的字符集。另外一些程序，如 Windows 95 API，使用 ANSI (American National Standards Institute) 或 DBCS 存储和操作字符串。当从 Visual Basic 移出字符串时，会遇到 Unicode 和 ANSI／DBCS 之间的差别。下表列出了不同环境下 ANSI、DBCS 和 Unicode 字符集。

环境使用的字符集
Visual Basic Unicode
32-bit 对象库 Unicode
16-bit 对象库 ANSI 和 DBCS
Windows NT API Unicode
Automation in Windows NT Unicode
Windows 95 API ANSI 和 DBCS
Automation in Windows 95 Unicode

ANSI
ANSI 是个人计算机使用得最普遍的字符集。由于 ANSI 标准使用单一字节表示每个字符，因此最多只能有 256 个字符和标点符号代码。虽然对英语来说已经足够了，但不能完全支持其它语言。

DBCS
发行在亚洲大部分地区的 Microsoft Windows 系统使用 DBCS。它支持很多不同的东亚语言字母，如汉语、日语和朝鲜语。DBCS 使用数字 0–128 表示 ASCII 字符集。其它大于 128 的数字作为前导字节字符，它并不是真正的字符，只是简单的表明下一个字符属于非拉丁字符集。在 DBCS 中，ASCII 字符的长度是一个字节，而日语、朝鲜语和其它东亚字符的长度是 2 个字节。

Unicode
Unicode 是用两个字节表示每个字符的字符编码方案。国际标准组织 (ISO) 几乎为每种语言的每个字符和符号在 0 到 65,535 (216 – 1) 范围内定义了一个数字（再加上为将来发展保留的一些空余空间）。在所有 32 位版本的 Windows 中，部件对象模型 (COM) 都使用 Unicode，它是 OLE 和 ActiveX 技术的基础。Windows NT 全部支持 Unicode。虽然 Unicode 和 DBCS 都是双字节字符，但它们的编码方案完全不同。

字符代码示例
图 16.4 显示了每一个字符集中的一个字符代码示例。注意双字节字符每一个字节的代码不同。

图 16.4 ANSI、Unicode 和 DBCS 中 "A" 的字符代码

txs 2002-04-16

打赏
举报

不行的，这和以前在DOS或者西文WIN下显示汉字一样，要用字库自己画。要用HOOK等技术。

shan__le 2002-04-16

打赏
举报

哈，土八路都不懂：）我也学习：） UP

thorkhan 2002-04-16

打赏
举报

難道VB就做不到了嗎﹖

CheerDesiger 2002-04-15

打赏
举报

用getOemCp得到當前Windows的碼﹐
下面是各種碼的說明
437 MS-DOS United States
708 Arabic (ASMO 708)
709 Arabic (ASMO 449+, BCON V4)
710 Arabic (Transparent Arabic)
720 Arabic (Transparent ASMO)
737 Greek (formerly 437G)
775 Baltic
850 MS-DOS Multilingual (Latin I)
852 MS-DOS Slavic (Latin II)
855 IBM Cyrillic (primarily Russian)
857 IBM Turkish
860 MS-DOS Portuguese
861 MS-DOS Icelandic
862 Hebrew
863 MS-DOS Canadian-French
864 Arabic
865 MS-DOS Nordic
866 MS-DOS Russian (former USSR)
869 IBM Modern Greek
874 Thai
932 Japan
936 Chinese (PRC, Singapore) 簡體
949 Korean
950 Chinese (Taiwan Region; Hong Kong SAR, PRC) 繁體
1361 Korean (Johab)

Public Declare Function GetOEMCP Lib "kernel32" Alias "GetOEMCP" () As Long

thorkhan 2002-04-15

打赏
举报

等待中﹒﹒﹒﹒﹒﹒﹒﹒﹒﹒﹒﹒

wgku 2002-04-15

打赏
举报

HE HE ... 其实我也不大懂，只不过提个思路。

xxlroad 2002-04-15

打赏
举报

不懂只能替你UP

thorkhan 2002-04-15

打赏
举报

等待﹑等待﹑再等待﹒﹒﹒﹒﹒﹒﹒﹒﹒﹒﹒﹒﹒﹒﹒﹒

rivershan 2002-04-15

打赏
举报

帮你UP~

thorkhan 2002-04-15

打赏
举报

各位兄弟姐妹快來啊﹖

thorkhan 2002-04-15

打赏
举报

To fuxc(Michael):
謝謝妳的回答﹐不過我說了妳的方法只是用VB內置的內碼轉換功能轉換Big与Gbk碼﹐這妳還沒看情我說的意思嗎﹖我說的是識別不是轉換﹐轉換我會﹐但也不是用Strconv函數用這种方法來轉換GB\GBK到Big5碼是非常好的，可是把Big5碼轉過來的話，結果居然是繁体﹐而且速度也較慢

fuxc 2002-04-15

打赏
举报

Private Sub Command1_Click()
Dim strTemp As String
Text1 = "⒋ら筿(癘窥)莱φㄤ㎝瓣羆瞶甁城蝴疭┰甁の㎝瓣羆参縫ぺ┰㎝ェㄈ㎝瓣現┎淋叫瓣叭皘羆瞶Χ妈膀さぱと盡诀瞒秨ㄊ玡┕瓃瓣秈︽タΑ砐拜国"
strTemp = StrConv(Text1, vbFromUnicode, &H804)
Me.RichTextBox1 = StrConv(strTemp, vbUnicode, &H404)
End Sub

试试看~~

thorkhan 2002-04-15

打赏
举报

等待中﹒﹒﹒﹒﹒﹒﹒﹒﹒﹒﹒﹒﹒﹒﹒﹒

thorkhan 2002-04-15

打赏
举报

To fuxc(Michael):
用StrConv函數能實現Big5与GB2312的轉換﹐但我問的這個問題好像是實現不了

bucher 2002-04-15

打赏
举报

Unicode需要操作系统支持，只有Winnt系列直接支持Unicode。如果系统安装过繁体字显示支持，那么你的程序就可以直接显示GB5汉字，反之亦然。如果不安装繁体字显示支持，直接想用程序来画，恐怕相当麻烦。

fuxc 2002-04-15

打赏
举报

用StrConv 函数
RichTextBox本身支持Unicode
把文本转成Unicode就行了

加载更多回复（18）

斑竹或經驗丰富者進

相关推荐