请问有谁知道如何在VB中编程实现固定IP与自动IP获取的转换?

请问有谁知道如何在VB中编程实现固定IP与自动IP获取的转换?,第1张

这个WMI是MS的例子 其实objAdapterIPAddress(i)数组里 返回是本机IP地址集合

里面的IP不管是DHCP得的 或 手动指定的都有

你可以从网段区分内外 别的方法就是读注册表

好象这个比较麻烦

得遍例HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\Interfaces里的所有子项寻找你要找的

如果你的系统是XP可以使用WMI

代码如下

其中的代码是可以返回所有IP配置信息 但你要本机IP部分 所以我就注释掉了

程序取到的IP在objAdapterIPAddress(i)数组里

当然有你要的外网IP和内网IP 你只需按需要做下区分就可以了

Private Sub Command1_Click()

' Returning IP Configuration Data

' WMI script that returns configuration data similar to that returned by IpConfig

strComputer = ""

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

Set colAdapters = objWMIServiceExecQuery _

("SELECT FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")

n = 1

'WScriptEcho

For Each objAdapter In colAdapters

'WScriptEcho "Network Adapter " & n

' WScriptEcho "================="

' WScriptEcho " Description: " & objAdapterDescription

' WScriptEcho " Physical (MAC) address: " & objAdapterMACAddress

' WScriptEcho " Host name: " & objAdapterDNSHostName

If Not IsNull(objAdapterIPAddress) Then

For i = 0 To UBound(objAdapterIPAddress)

' WScriptEcho " IP address: " & objAdapterIPAddress(i)

DebugPrint objAdapterIPAddress(i)

Next

End If

If Not IsNull(objAdapterIPSubnet) Then

For i = 0 To UBound(objAdapterIPSubnet)

' WScriptEcho " Subnet: " & objAdapterIPSubnet(i)

Next

End If

If Not IsNull(objAdapterDefaultIPGateway) Then

For i = 0 To UBound(objAdapterDefaultIPGateway)

' WScriptEcho " Default gateway: " & objAdapterDefaultIPGateway(i)

Next

End If

'WScriptEcho

'WScriptEcho " DNS"

'WScriptEcho " ---"

'WScriptEcho " DNS servers in search order:"

If Not IsNull(objAdapterDNSServerSearchOrder) Then

For i = 0 To UBound(objAdapterDNSServerSearchOrder)

' WScriptEcho " " & objAdapterDNSServerSearchOrder(i)

Next

End If

' WScriptEcho " DNS domain: " & objAdapterDNSDomain

If Not IsNull(objAdapterDNSDomainSuffixSearchOrder) Then

For i = 0 To UBound(objAdapterDNSDomainSuffixSearchOrder)

WScriptEcho " DNS suffix search list: " & objAdapterDNSDomainSuffixSearchOrder(i)

Next

End If

' WScriptEcho

' WScriptEcho " DHCP"

' WScriptEcho " ----"

' WScriptEcho " DHCP enabled: " & objAdapterDHCPEnabled

' WScriptEcho " DHCP server: " & objAdapterDHCPServer

If Not IsNull(objAdapterDHCPLeaseObtained) Then

utcLeaseObtained = objAdapterDHCPLeaseObtained

strLeaseObtained = WMIDateStringToDate(utcLeaseObtained)

Else

strLeaseObtained = ""

End If

' WScriptEcho " DHCP lease obtained: " & strLeaseObtained

If Not IsNull(objAdapterDHCPLeaseExpires) Then

utcLeaseExpires = objAdapterDHCPLeaseExpires

strLeaseExpires = WMIDateStringToDate(utcLeaseExpires)

Else

strLeaseExpires = ""

End If

' WScriptEcho " DHCP lease expires: " & strLeaseExpires

' WScriptEcho

' WScriptEcho " WINS"

' WScriptEcho " ----"

' WScriptEcho " Primary WINS server: " & objAdapterWINSPrimaryServer

' WScriptEcho " Secondary WINS server: " & objAdapterWINSSecondaryServer

' WScriptEcho

n = n + 1

Next

End Sub

Function WMIDateStringToDate(utcDate)

WMIDateStringToDate = CDate(Mid(utcDate, 5, 2) & "/" & _

Mid(utcDate, 7, 2) & "/" & _

Left(utcDate, 4) & " " & _

Mid(utcDate, 9, 2) & ":" & _

Mid(utcDate, 11, 2) & ":" & _

Mid(utcDate, 13, 2))

End Function

[ 仄 ] 拼音:zè 繁体:仄

部首:人 部首笔划:2 字意五行:金

简体笔划:4 台湾笔划:未知 康熙笔划:4

拼音输入:ze 五笔输入:DWH 吉凶寓意:凶

笔顺:横撇撇捺

详细解释

narrow;

(1)

(会意。小篆字形象人侧身在山崖洞穴里的形状。本义:倾斜)

(2)

同本义 [oblique]

仄,侧倾也。――《说文》

行山者仄輮。――《周礼·考工记·车人》

众畏其口,见之仄目。――《汉书·息夫躬传》

日极则仄,月满则亏。――《管子·白心》

每旦视朝,日仄乃罢。――《后汉书·光武纪》

(3)

又如:仄歪(方言。倾斜摇晃);仄日(夕阳,斜阳);仄席(不敢正座,侧身坐在席上。形容忧心的样子);仄起(倾斜突起);仄目(斜着眼看);仄步(行走歪斜貌)

(4)

内心不安 [worried]

衷怀歉仄,自叹无缘。――《红楼梦》

(5)

又如:仄悚(恐惧不安);仄兀(歉疚不安)

(6)

置 [place oneself]。如:仄身(置身)

(7)

[方]∶仰,抬起 [raise]

她仄起头儿,眨巴着眼睛瞅江涛。――梁斌《红旗谱》

(1)

狭窄 [cramped;narrow]

险道倾仄,且驰且射。――《汉书》

(2)

又如:人多地仄;仄小(狭小,窄小);仄陋(狭窄简陋);仄狭(狭窄);仄径(狭窄的小路);仄道(狭窄的小路);仄仄(狭窄)

(3)

社会地位或政治地位低下的 [humble]

明明扬仄陋。――《书·尧典》

(4)

又如:仄微(卑贱,社会地位低)

(1)

通“侧”(cè)。旁边 [side]

若子之材,可优游都城而取卿相,何必勒功昆山之仄。――《汉书·段会宗传》

行山者仄輮。――《周礼·考工记·车人》

罢退外亲及旁仄素餐之人。――《汉书·鲍宣传》。颜师古云:“仄,古侧字也。”

(2)

又如:仄足(侧足);仄室(侧室)

(3)

仄声,古汉语四声中上、去、入三声的总称 [oblique tone]。如:仄韵(凡上、去、入声的韵,皆为仄韵与“平韵”相对);仄韵诗(指韵脚用仄声字的旧体诗)

zè ㄗㄜˋ

(1)

倾斜:~立。日~。

(2)

狭窄:逼~。

(3)

心里不安:歉~。

〔~声〕古汉语中“上声”、“去声”、“入声”的总称。

郑码:GGOD,U:4EC4,GBK:D8C6

笔画数:4,部首:人,笔顺编号:1334

narrow;

平;

康熙字典解释

子集中人字部 康熙笔划:4 部外笔划:2

说文厕本字。通作侧。 又平仄,字声也。 又仄慝,月行迟也。占家曰:朔而月见东方谓之仄慝。仄慝则王侯其肃。 又赤仄,钱名。 又六书本义湢仄,水流貌。作,非。又稫仄,禾密貌。作稫稄,非。 从厂从人。厂音罕,山石之厓巖。人处厂下,有虑倾侧之象。

VB VC VE 这三种属于水溶性维生素。不会过量的。至于胶原蛋白。市面上尚无非常好的胶原蛋白食品,仅有部分蛋白粉产品,首推纽崔莱的。纽崔莱的蛋白粉是人民日报报道过的唯一的真正的营养食品。

蛋白粉跟VC一起能生成胶原蛋白,推荐一起食用。

至于辅酶Q10 对心脑血管比较好。适量实用,你这个年龄倒是没有比较大量食用。用来敷脸倒是不错。

DHC--MERIROTO下半身减肥用30日 (60粒)

办公室电脑前常座MM的福音!

有很多人的下半身肥胖是由于下半身积有本应该排出体外的水分积累而引起的。另外有好多是因为长期的不良坐势站势引起下半身肥胖的哦,可能你自己还没有意识到这点呢!

DHC的这款下半身减肥保健食品能针对这些情况帮帮助您调节自己的体形,使你拥有一个黄金比例的身材!

1排除平时运动不足造成下半身积累的脂肪及不需要的水分。

2促进血液循环。纠正长时间站立或是长期站势坐势不正确引起的下半身粗大。

3本品为纯植物提取,没有副作用。

DHC智慧减肥套装(20天)

智慧减肥瘦身,减全身,但绝不减胸哦,免你后顾之忧!大家可以放心瘦身啦!

DHC智慧减肥套装

瘦身纤体素--ニュースリム专攻食欲旺盛----营养摄取调整丸(2粒)

艰苦的限制食欲以控制体重的反弹,已经成为减肥的一项生活负担。肥胖主要的原因是糖分,脂肪,盐分,水分的配比。DHC的营养摄取调整丸,以平和这4项摄取的安全量为目标。

加速脂肪燃烧----ガルシニア(藤黄属植物)萃取片(1粒)

在印度,有一种被称为「ガルシニア?カンボジア」的热带水果(藤黄属植物)。有迅速燃烧脂肪的作用,DHC的「ガルシニア萃取片」,萃取ガルシニア的精华。与辣椒提取液及ビタミンB群(维生素B群)调和,高效率的加快您体内的脂肪燃烧。针对腰腹部脂肪。迅速而无副作用,并且无反弹。

ギムネマ----塑身,造就曲线(1粒)

印度的口传医学「アーユルヴェーダ」2000年以前就开始并且广为使用的ギムネマ。正式名是ギムネマ?シルベスタ,本品是提取的印度的热带雨林中原生植物。加以浓缩配置而成。ギムネマ所具有的作用就是有选择的分解脂肪,他如同热跟踪导弹,寻找您身上多余脂肪堆积最严重的地方,造就你完美的曲线。

爪哇豆提取丸----专攻腿部水肿(1粒)

meriroto是豆科的植物。丰富含芳香性物质kumarin。从meriroto抽出了的提取物爪哇豆草叶,是配合了银杏叶,辣椒提取物,专攻水肿造成的肥肿(水肿往往体现在四肢,尤其腿部)。

维生素B群丸----治理糖份蛋白质代谢缓慢的根源(1粒)

维生素B群,是抢救专门代谢糖分和蛋白质等的营养源的工作辅酶的必需维生素。已经被誉为美容和健康的必须元素。DHC的「维生素B混合片」,是以维生素B1,B2,B6,B12为首,平衡很好地配合了泛酸,叶酸的8种维生素的综合提取药。

维生素C----强力的体质根源(1粒)

维生素C被称为维生素之源,和B2一样也是人体25岁以后流失最快的维生素。

无论何种时候,使用何种营养品,都千万别忘记这个条理血球代谢和营养平衡的专家,维生素C PLUS

每包里面就有7粒药丸,就是以上列举的。

DHC左旋肉+脱氧酸+苦瓜素等10种复合减肥胶丸30日 1日3粒

DHC燃烧系 综合10种减肥成分纤体胶囊

含10种减肥成分,减肥的同时补充身体所需,健康减肥食品。

2006 dhc 新品,综合日本畅销减肥药苦瓜素和左旋肉,加以脱氧酸的辅助,帮助你在30日内成功减肥,无痛苦,不口干,绝无副作用

DHC 啤酒酵母 30日分(150粒)

支持美容和健康的天然啤酒酵母-----以人体必需氨基酸为首,含有维生素B群,矿物质等的营养的啤酒酵母。不含酒精成分。对美化皮肤,促进消化,补充营养非常有好处。更是减肥中的完美补充营养剂!!

1粒总重量(=内容量)420mg啤酒酵母320mg维生素B1002mg,维生素B2001mg,维生素B6001mg,叶酸56μg,钙075mg,镁08μg,铜144μg,铁012mg,锰256μg,钾54mg,锌053mg,硒16μg,DNA48mg,RNA38mg

DHC减肥蟹壳素 90粒(30天份)

甲壳素是在研究螃蟹的甲壳及虾壳中所含的几丁质之使用方法时,

所发现的一种食物纤维。

建议给平日蔬果摄取不均者及想要维持排便顺畅等人食用。

1甲壳素是在研究螃蟹的甲壳及虾壳中所含的几丁质之使用方法时,

所发现的一种膳食纤维。

一般的植物性膳食纤维原本就具有促进肠道蠕动、增加饱足感等功能,

可是后来有医学研究发现,

甲壳素中所含的动物性膳食纤维在此方面的功能更胜於植物性膳食纤维。

2DHC甲壳素是采用日本境内最高品质的红松叶蟹为原料,

并以整只蟹壳经高生化科技技术精制而成,去乙醯化程度高达90%以上,

品质绝对优於一般采用虾蟹壳废弃物所制的商品。

建议平日蔬果摄取不均者及想要维持排便顺畅等人食用

天然红花燃脂纤体素

(Conjugated Linoleic Acid)

复合亚麻油酸萃取自天然红花的食用油脂,能促进脂肪酸燃烧转化成热量,特别适合想减去多余脂肪或吸收过多脂肪类食物的人士。

主要成份:氢化红花籽油

DHC浓缩卵磷脂减肥片 60粒(20天份)

这种适合为以下三类人士:

1。加工食品(彭化食品等)等零食爱好者

2。小腹部脂肪堆积者

3。希望保持完美身材比例

DHC 抑糖消腩减肥 海军豆精华30天(90粒)

内容量:

90粒

商品简介:

提取海军豆精华,有效抑制碳水化合物的吸收,如果你喜欢米饭,面类,这是你减肥纤体的好帮手。

主要原材料 海军豆精华粉末

东京直运 DHC黄藤素热量阻隔减肥营养素 30日

DHC热量阻隔营养素。专门适用于偏爱汉堡,油炸,快餐和晚餐大餐的人士。能将影响和阻碍食物中的油类,淀粉的代谢,同时还可以消耗自身体内多余脂肪。

纯植物配方,更加安全有效,在日本屡获减肥大奖。

成份:藤黄果皮素(1000mg∕日份量)

DHC 浓缩苦瓜素30天(60粒)减肥降血脂的首选!

浓缩苦瓜1粒总重量(=内容量)273mg苦瓜提取物末220mg

主要原材料苦瓜提取物末,啤酒酵母

调整剂等碳酸氢钠,紫胶,甘油脂肪酸酯

DHC 智慧减肥饼干(40g)

商品介绍:(品名) 饼干渣

原材料:小麦粉,砂糖(粗砂),菜子油,鸡卵,黄油,土豆片(不含转基因),脱脂奶粉,红茶

营养成分:(1袋40g),热量198kcal,蛋白质42g,脂肪108g,糖分179g,食物纤维59g,食盐146mg,钙548mg

配合DHC智慧减肥胶囊一起服用,效果更佳

隔绝冬天吸收多余糖份DHC武靴叶抑糖纤体素

武靴叶精华能抑制糖分的吸收,透过控制体重,发挥瘦身作用,同时有助预防因不良生活习惯造成的都市病。最适合爱吃甜食、摄取过量糖分和营养、运动不足、肥胖、想修身纤体,以及关注身体健康的人士服用。

主要成分

武靴草浓缩粉末

DHC魔力消脂因子(又称DHC修身素)

1粒総重量(=内容量)405mg魔力消脂植物末(フォルスコリン10%)250mg、维他命B1 04mg、维他命B2 05mg、维他命B6 06mg

DHC青汁食物纤维

获日本厚生劳动省认可,有助改善便秘的保健机能食品。由日本出产的无农药栽培有机甘蓝萃取出青汁粉,加入水浴性食物纤维,富含叶绿素、维他命和食物纤维等养分,进一步加强调整肠胃、改善消化机能的功效。独立包装,方便携带外出时饮用。

写作思路及要点:围绕自己的优势。

正文:

我喜欢游泳,喜欢跳舞,喜欢画画,也喜欢打羽毛球和滑冰。但在这众多的爱好中我最喜欢跳舞啦,也是坚持得最好的。

我从四岁开始学习舞蹈,到现在已经五年了,这已经成为我业余生活不可缺少的一部分。还记得当时妈妈带着我见舞蹈老师、观看小朋友们上课时的情景,我心里是排斥的,是不情愿的。或许是那动听的音乐,优美的民族舞姿和漂亮的服装吸引了我,渐渐地我开始喜欢上了跳舞。

舞蹈课分基本功训练和舞蹈表演,我每周末要去上两节课。基本功训练枯燥而乏味,压腿、下腰、抓腿……这一系列技巧动作还要做到不怕痛、有毅力,因为这,很多同学都放弃了,而我却是迎难而上,咬牙坚持学习,毫不退缩,最后学得还不错咧。

我的舞蹈老师宋老师漂亮又充满活力,她认真的指导每个同学的动作。比如:我的三拍舞步总是踩不上节奏,在老师的'耐心的指导下,我反复的练习,终于学会了这个优美的舞步。

功夫不负有心人,经过努力,我终于登上了梦寐以求的舞台:重庆市少儿春晚,巴南区少儿春晚,学校的“我要上六一”……处处都有我优美的舞姿。台下观众的阵阵掌声,同学们羡慕的表情,让我心里美滋滋的,特别自豪,从此我更加喜欢跳舞了。

舞蹈给了我健康的身体,给我的生活增添了无穷的乐趣,使我学会了自信、知难而进。我爱跳舞!

文明礼仪是中华民族的传统美德。从古至今,源远流长。长期以来被人们作为衡量为人处世的道德标准之一,是一个人道德修养的外在表现

文明礼仪是一粒最有生命力的种子,它会在我们的精神世界里发芽、开花、结果,指导我们的人生观、世界观,让把文明之花播撒到生活中!

礼仪是一种修养、一种气质、一种文明、一种亲和力,它是人际交往的通行证。一个人要有所成就,就必须从学礼开始。谈吐文雅、举止大方、彬彬有礼、良好的自我形象是构建人生大厦的基石。你想点亮靓丽青春的火炬吗?你想走进千姿百态的人际交往世界吗?那么我们就开始从现在做起,从身边的一点一滴做起吧!

欢迎分享,转载请注明来源:品搜搜测评网

原文地址:https://pinsoso.cn/meirong/3615555.html

(0)
打赏 微信扫一扫微信扫一扫 支付宝扫一扫支付宝扫一扫
上一篇 2024-03-09
下一篇2024-03-09

随机推荐

  • 日月之精华是什么词语?

    日月之精华,这个词语令人们感到神秘又充满遐想。它是指日月所蕴含的核心精髓,代表着宇宙的奥秘和生命的力量。无论是古人还是现代人,对于日月之精华的探索和理解都是永恒的话题。从科学的角度来看,日月之精华可以理解为温度。在宇宙中,太阳是光和热的源泉

    2024-04-15
    56500
  • 拜耳和拜尔斯道夫是不是一家公司

    不是同一个,虽然同在德国,但是两个公司差距太大了,也不是子公司的关系。德国拜耳集团(Bayer)是全球最为知名的《财富》世界500强企业之一,全球制药巨头。在材料创新,作物科学及医药保健等众多领域位居业界前列。全球最大的化工和医药保健企业之

    2024-04-15
    56400
  • 福州最好吃的牛排店

     几乎所有福州的西餐厅都会有牛排这一出品,到底哪家的牛排最美味,最能让人垂涎呢相信各位食客会有许多不同的声音,为了满足无数酷爱牛排的吃货之需,我特地为大家精心挑选了福州城中10家出品美味牛排的餐厅,快来看看吧。  福

    2024-04-15
    43700
  • 精华液能不能白天用?

    要看你的年龄了~ 如果你是20-28的话建议不要在白天使用,年龄不大 你要总用会营养过盛会起脂肪粒的 皮肤的吸收是有限的 不是摸多少就能吸多的~~~ 年龄大的人适合用精华和高营养的化妆品 因为她们的新陈代谢变慢 细胞不活跃了~不排油 营

    2024-04-15
    44000
  • 男士化妆品曼秀雷敦的好还是妮维雅的好

    分类:美容减肥化妆问题描述:想给BF买套化妆品,他脸很油,爱长痘痘,不知道这两个牌子的哪个好一点?请大家帮帮忙,万分感谢! 解析:当然选妮维亚男士喽,我男友就用的这个,这个味道适合男生,因为必竟是为男士生产的,有

    2024-04-15
    41700
  • 买了套妮维雅的男士护肤品,也不知道使用的先后顺序,求大大们指导。

    欧莱雅的比较多人用,有男士专用的控油保湿着哩和爽肤水,洁面着哩,醒肤露和霜都还不错,价格也不贵,四件套的套装也就300块左右很多朋友都试过,效果ok,并且味道蛮好妮维雅也有男士系列,价格确实不高,之前有同学买很多套拿来送人--!舒适感据说也

    2024-04-15
    46600
  • 妮维雅防晒霜好用吗

    根据小编自己亲测之后的感觉来看还是很不错的,旗下的防晒霜有多种不同类型,有的是以黄盖呈现的喷雾,有的是以挤压头呈现的,也有一些是针对儿童而生的。不管是哪一种,其实都具有着很容易晕开、安全系数比较高的特色,特别是旗下的防晒喷雾非常好用,小小一

    2024-04-15
    45300

发表评论

登录后才能评论
保存