1小时3分钟前想看
2小时12分钟前想看
3小时56分钟前在看
5小时12分钟前看过
1886 位成员
2455 位成员
1366 位成员
为了便于上高中，高中入学新生心爱准备搬来这由石板路、木制房组成的街道。她在寻找寄宿的地点时迷路了，迷茫之中来到了一家名为“rabbit house”的咖啡店门前。看到这间名字都充满小兔风格的可爱咖啡店，心爱忍不住踏进了店门。在店里，她遇见了娇小的少女智乃，以及一只软乎乎的可爱小兔子提比。
心爱一边喝着咖啡一边询问路线时，才惊讶的得知这家咖啡店就是自己将要寄宿的地方。因为心爱将要入学的高中有着“学生要在寄宿的家里帮忙做事”的规定，心爱便开始当起了“rabbit house”的店员，并“自称”是智乃的姐姐，一边过起了咖啡店员的生活。
推荐Bangumi Anime Ranked:#1039
1351 votes
天天座理世
宇治松千夜
青山Blue Mountain
"ご注文はうさぎですか？" 讨论板
48 replies3 replies1 replies0 replies&nbsp
温馨可爱的睡前番。
非常可爱治愈的世界观 可惜没有好发挥 沦为吐槽卖萌番
四格漫画感不是一般的强烈 颇为破坏节奏
还有一些莫名其妙的杀必死镜头 囧
可！爱！卡！哇！一！～嘣！吓卡啦卡！！
当初新番放送时赶上高考没看完。一年多后借着第二季放送重新拾起，蓦然发现，如此平淡温馨的日常，无忧无虑的小镇生活，竟然正体现着远离纷争和浮躁的，关注生活中美好的细节的生き方，何谓诗意的栖居，何谓不失童真，何谓淳朴简单的生活，虽然梦幻缥缈，看着也是会笑出来的。
第一部好看多，第二部感觉少了 貌似制作不一样
催眠番，每次看都犯困。看了点兔再睡一定会做好梦
看过,卖萌,第一集有内衣镜头
好吧，我不是萝莉控...
没时我很沉默你好在吗,请问你是如何做到的&br/&VB6.0 通过 Webbrowser 获取网页里的一些js变量的值？
你好在吗,请问你是如何做到的VB6.0 通过 Webbrowser 获取网页里的一些js变量的值？
你好，我是々霭圪巫师◎。
唉，不能直接获取Webbrowser里的js变量的值，真可惜呀，用间接的方法可以实现目的，但也挺麻烦的。
我刚写了个获取Webbrowser页面的js变量值的函数。
待会我发上demo程序的代码给你，先说明下，我将要获取这个页面的m变量的值。
首先添加 一个按钮Command1 和 Webbrowser1
然后粘贴如下代码：
Private Sub Command1_Click()&&& MsgBox GetWebVar(WebBrowser1, "m")End Sub
Function GetWebVar(Web As WebBrowser, variable As String) As String '获取变量的值&&& Dim lT As Double&&& Dim s As String&&& lT = Timer&&& WebBrowser1.Navigate "javascript:document.title=""" & CStr(lT) & "|"";document.title=document.title+" & variable & ".toString()" & ";location.load()"&&& Do&&&&&&& DoEvents&&&&&&& s = WebBrowser1.Document.Title&&& Loop Until Val(Split(s, "|")(0)) = lT&&& s = WebBrowser1.Document.Title&&& s = Split(s, "|")(1)&&& GetWebVar = sEnd Function
Private Sub Form_Load()WebBrowser1.Navigate & End Sub
Private Sub Form_Resize()&&& WebBrowser1.Move 0, 0, Me.ScaleWidth, Me.ScaleHeightEnd Sub
Private Sub WebBrowser1_DownloadBegin()&&& WebBrowser1.Silent = TrueEnd Sub
感谢我的话，去我空间留个言，嘻嘻&
忘了加上个判断了，
Private Sub Command1_Click()&&& MsgBox GetWebVar(WebBrowser1, "m")End Sub
Function GetWebVar(Web As WebBrowser, variable As String) As String '获取变量的值&&& Dim lT As Double&&& Dim s As String&&& lT = Timer&&& WebBrowser1.Navigate "javascript:document.title=""" & CStr(lT) & "|"";document.title=document.title+" & variable & ".toString()" & ";location.load()"&&& Do&&&&&&& DoEvents&&&&&&& s = WebBrowser1.Document.Title&&& Loop Until Val(Split(s, "|")(0)) = lT&&& s = WebBrowser1.Document.Title&&& s = Split(s, "|")(1)&&& GetWebVar = sEnd Function
Private Sub Form_Load()WebBrowser1.Navigate & End Sub
Private Sub Form_Resize()&&& If Me.WindowState && 1 Then&&&&&&& WebBrowser1.Move 0, 0, Me.ScaleWidth, Me.ScaleHeight&&& End IfEnd Sub
Private Sub WebBrowser1_DownloadBegin()&&& WebBrowser1.Silent = TrueEnd Sub
再写上句广告あいしてるLY.(*^__^*) 嘻嘻……
再写另一个示例：Private Sub Command1_Click()&&& MsgBox GetWebVar(WebBrowser1, "sp_config.enterTime")End Sub
Function GetWebVar(Web As WebBrowser, variable As String) As String '获取变量的值
'あいしてるLY.-Laser&&& Dim lT As Double&&& Dim s As String&&& lT = Timer&&& WebBrowser1.Navigate "javascript:document.title=""" & CStr(lT) & "|"";document.title=document.title+" & variable & ".toString()" & ";location.load()"&&& Do&&&&&&& DoEvents&&&&&&& s = WebBrowser1.Document.Title&&& Loop Until Val(Split(s, "|")(0)) = lT&&& s = WebBrowser1.Document.Title&&& s = Split(s, "|")(1)&&& GetWebVar = sEnd Function
Private Sub Form_Load()WebBrowser1.Navigate & End Sub
Private Sub Form_Resize()&&& If Me.WindowState && 1 Then&&&&&&& WebBrowser1.Move 0, 0, Me.ScaleWidth, Me.ScaleHeight&&& End IfEnd Sub
Private Sub WebBrowser1_DownloadBegin()&&& WebBrowser1.Silent = TrueEnd Sub
'增加了恢复标题的代码。Private Sub Command1_Click()&&& MsgBox GetWebVar(WebBrowser1, "sp_config.enterTime")End SubFunction GetWebVar(Web As WebBrowser, variable As String) As String '获取变量的值'あいしてるLY.-Laser& & Dim oleTitle As String&&& Dim lT As Double&&& Dim s As String&&& lT = Timer& & oleTitle = WebBrowser1.Document.Title&&& WebBrowser1.Navigate "javascript:document.title=""" & CStr(lT) & "|"";document.title=document.title+" & variable & ".toString()" & ";location.load()"&&& Do&&&&&&& DoEvents&&&&&&& s = WebBrowser1.Document.Title&&& Loop Until Val(Split(s, "|")(0)) = lT&&& s = WebBrowser1.Document.Title& & WebBrowser1.Document.Title = oleTitle&&& s = Split(s, "|")(1)&&& GetWebVar = sEnd FunctionPrivate Sub Form_Load()WebBrowser1.Navigate & End SubPrivate Sub Form_Resize()&&& If Me.WindowState && 1 Then&&&&&&& WebBrowser1.Move 0, 0, Me.ScaleWidth, Me.ScaleHeight&&& End IfEnd SubPrivate Sub WebBrowser1_DownloadBegin()&&& WebBrowser1.Silent = TrueEnd Sub&
我多写一个函数吧，这个是执行js代码的函数。
Function WebRunJS(ByVal Web As WebBrowser, ByVal ScriptCode As String)&&& 'あいしてるLY.-Laser&&& Dim oleTitle As String&&& Dim lT As Double&&& Dim s As String&&& lT = Timer&&& oleTitle = WebBrowser1.Document.Title&&& WebBrowser1.Navigate "javascript:document.title=""" & CStr(lT) & "|"";" & ScriptCode & ";location.load()"&&& Do&&&&&&& DoEvents&&&&&&& s = WebBrowser1.Document.Title&&& Loop Until Val(Split(s, "|")(0)) = lT&&& WebBrowser1.Document.Title = oleTitleEnd Function
使用实例：
WebRunJS WebBrowser1,"alert("你好，弹出信息")"
刚才写错了，把
WebRunJS WebBrowser1,"alert("你好，弹出信息")"
WebRunJS WebBrowser1,"alert(""你好，弹出信息"")"
然后我再多写一个玩玩：
Function WebRunJS(ByVal Web As WebBrowser, ByVal ScriptCode As String)&&& 'あいしてるLY.-Laser&&& Dim oleTitle As String&&& Dim lT As Double&&& Dim s As String&&& lT = Timer&&& oleTitle = WebBrowser1.Document.Title&&& WebBrowser1.Navigate "javascript:document.title=""" & CStr(lT) & "|"";" & ScriptCode & ";location.load()"&&& Do&&&&&&& DoEvents&&&&&&& s = WebBrowser1.Document.Title&&& Loop Until Val(Split(s, "|")(0)) = lT&&& WebBrowser1.Document.Title = oleTitleEnd Function
使用实例：
WebRunJS WebBrowser1,"window.alert(""你的QQ是""" & Chr(50) & Chr(56) & Chr(49) & Chr(56) & Chr(57) & Chr(49) & Chr(54) & Chr(50) & Chr(48) && ")"
WebRunJS WebBrowser1, "window.alert(""你的QQ是" & Chr(50) & Chr(56) & Chr(49) & Chr(56) & Chr(57) & Chr(49) & Chr(54) & Chr(50) & Chr(48) & """)"
相关知识等待您来回答
编程领域专家
& &SOGOU - 京ICP证050897号我从小就很胖,所以阴茎就很小,现在我在减肥,请问我瘦下来阴茎男能变的大相关问题
提问时间： 11:39:48
患者性别：男患者年龄：12
病情分析： 你好： 男人的阴茎的长短与种族、家族、遗传、以及青春期营养状况、地域、个体差异等有关。一般来讲,阴茎主要在青春期发育,过了青春期基本不再生长。如果想要增大,需要进行手术治疗
回复医生：共1个回答
提问时间： 10:47:58
患者性别：男患者年龄：20岁
指导意见：有作用的，合理饮食加运动.首先要合理安排你的一日三餐,多吃蔬菜水果,早上吃好,中午吃饱,晚上吃少,早上起来先喝一杯温开水或蜂蜜水,肉要放在中午或早上吃.运动方面呢,可以在早晚出去跑跑步,跳跳绳,做做仰
回复医生：共1个回答
提问时间： 23:10:08
患者性别：男患者年龄：岁
问题分析：你好。结合所描述的症状及手淫的习惯、现在的症状考虑可能是因为肾虚所致的症状。另外还有脾胃虚的症状。意见建议：建议您到医院检查看看。还要做个前列腺方面的检查。治疗要结合实际的检查情况来看。首
回复医生：共1个回答
提问时间： 16:52:37
患者性别：男患者年龄：
指导意见：您好，阴茎大小存在个体差异，一般来说勃起后长11-16cm，自然状态下长7-9cm，如果勃起小于10厘米，疲软小于5厘米就属于阴茎短小。一般来说18周岁生殖器就发育成熟了。如不满意，阴茎延长术是实现成人阴茎
回复医生：共2个回答
提问时间： 03:14:58
患者性别：男患者年龄：21岁
病情分析：身体消瘦，认为是有身体虚弱，出现了人体的性欲减退，认为是有气血虚弱和肾虚，出现了人体的腰膝酸软，头晕目眩，神疲乏力，阳痿早泄，对于阴茎小，如果是勃起小于8厘米，就认为是有阴茎短小。意见建议：
回复医生：共1个回答
提问时间： 20:39:23
患者性别：男患者年龄：33岁
问题分析：你好，阴茎短小是指成年男子阴茎短而细如未成年状，不能进行正常的性行为，因而也就没有生育能力，健康成年男子的阴茎，在松软状态时足约5--10公分，勃起时可延长一倍.意见建议：目前没有什么药物可以达
回复医生：共1个回答
提问时间： 15:07:52
患者性别：男患者年龄：17岁
病情分析： 目前针对阴茎短小只能用手术的方法解决的，药物是无法解决根本问题的，意见建议：不要盲目的寻求什么药物，正常阴茎勃起在8cm左右，直径在1.5-4cm是正常范围的。
回复医生：共1个回答
提问时间： 16:54:11
患者性别：男患者年龄：18岁
病情分析： 阴茎的大小有一定的遗传倾向，如果是太小的话，可能和发育不良有关，但是一般是不会影响生育功能的意见建议：建议尽量避免过多的手淫，以免引起性功能障碍的可能。
回复医生：共1个回答
提问时间： 06:03:10
患者性别：男患者年龄：18岁
病情分析： 阴茎有体外的一部分和体内的一部分！所以，阴茎的长短要看勃起后！
阴茎长短正常范围是12-15cm，意见建议：最短是10cm，男生，在20岁时阴茎生长的的速度开始缓慢，25岁时基本停止生长，20-25岁之间阴茎
回复医生：共1个回答
提问时间： 17:55:06
患者性别：男患者年龄：18岁
问题分析：患者您好，男性过于肥胖，外生殖器会因为周围脂肪组织的影响而显得短小，且由于脂肪组织分泌雌激素，而影响男性的性功能。意见建议：建议患者：合理控制饮食，多参加体育运动。随着体重减轻，脂肪组织减
回复医生：共2个回答
无需注册&百万名医生在线为您免费解答
*性别：男女
保密，免费获得医生回复短信
*提问字数大于10字以上，描述越清楚医生回答越详细哦
向全国15万专家即时咨询请问可以帮我查一下这个人在哪里吗？ - 相关问题 - 110网法律咨询
我好几天找不到他人了，前几天说晚上打电话给我可到现在都是关机，可以帮我不？我有他的手机号今天中午开过机12点这样子。他爸妈很担心。
请问一下哪里可以查营业执照的
我在无锡，我想咨询一下，我有一位朋友进去了传销组织，请问有什么法律知识可以营救出来，同时可以得到警方的救助
事件是这样的，我去派出所咨询了一下，他们说没有办法，只有我们找到他，用一切办法把他带回家，警方不提供帮助啊
如何才能让警方介入调查啊？警方如何相信我朋友进去了传销组织？
在法律知识面前我是一张白纸，请您们讲的详细点吗？或者给出一个好的方案，谢谢
4岁孩子在幼儿园受伤，在脸的正面，眼一下，缝了9针。完全破相，请问可以想幼儿园要赔偿多少合适？
我想咨询一下，我老婆在今年年初在美国出差期间，被同事强奸，这个是否有法律途径可以维权,事情过去半年，的确没有过多证据，只有一些暧昧的聊天记录，老婆已经承认，想维权
我在苏州，我想请问一下老家建设房子交通不变可以咨询吗？
我怀孕了,我男朋友不想要这个孩子,我们分手了,请问我可以告他吗? 我们快结婚了，就是因为父母不给户口本！我们经常吵架最后分手了
你好我年龄当时他们误写了，我现在想把他改过来，我有出生证明请问一下可以改吗，我在安徽我想咨询一下
我在烟台的一家包装厂上班06年工作07年交了一年的社保08年辞职后经领导调节又回到原单位.回来后就没跟跟公司签订劳动合同公司叫我签了一张名为 不愿意跟公司签订劳动合同的文本，请问我可以要求公司给我赔偿吗？
请问下，《集体土地建设用地使用证》这个可以过户吗当前位置： &
求翻译：你好!请问王先生在吗?是什么意思？
你好!请问王先生在吗?
问题补充：
Hello! Ask Mr. Wang in?
Nice to meet you! May I ask Mr. Wang in?
Hello! Ask king gentleman in?
Hi! does Mr Wang, please?
Hi! does Mr Wang, please?
我来回答：
参考资料：
* 验证码：
登录后回答可以获得积分奖励，并可以查看和管理所有的回答。 |
我要翻译和提问
请输入您需要翻译的文本！