当我尝试让我的机器人加入我的语音通道时,我得到了这个错误:
await client.join_voice_channel(voice_channel) (生成错误的行)
Traceback (most recent call last):
File "/usr/local/lib/python3.5/site-packages/discord/ext/commands/core.py", line 50, in wrapped
ret = yield from coro(*args, **kwargs)
File "bot.py", line 215
我要在蟒蛇里做一个不和谐的音乐机器人。它已经可以做的基础,如下载,播放音乐,暂停,恢复,停止等。
现在我正在排队。所以机器人会自动播放下一首歌,而不用我手动告诉他再播放一些音乐。它已经创建了一个包含歌曲的队列,但是..。
我的问题是:我的机器人不知道何时完成播放下一首歌;没有任何事件让机器人播放下一首歌。也许有人知道一个合适的命令或者我怎么能解决这个问题?我通常使用的事件来自不和谐(‘on_准备’,'on_message','on_error',.),但我不知道适合队列的事件。
import discord
from discord.ext import com
if '!mvp' in message.content and message.author != client.user:
print('MVP spotted.')
await discord.VoiceClient.play(self,source='audio/quotes/CypherLastKillMVP.mp3')
忽略on_message跟踪中的异常(最近一次调用):文件on_message第343行,在_run_event中等待coro(*args,**kwargs)文件"C:\
我有这个程序:
import java.util.*;
public class test {
private String s;
public test(String s) { this.s = s; }
public static void main(String[] args) {
HashSet<Object> hs = new HashSet<Object>();
test ws1 = new test("foo");
test ws2 = new test("fo
因此,我希望我的代码循环通过工作表,取决于工作表名称,我希望复制不同的范围(如果工作表不会被列出,我只想跳过它)(假设我知道我想要复制的列的编号/入口(行数可能不同,取决于我得到的原始文件),我希望将所有这些范围都复制到另一个称为check_data的工作表中,并在右边加上额外的列,右写这个部分是从哪个表开始的。有时我被卡住了,代码的这一部分起作用了,但它似乎没有循环通过工作表。
到目前为止,我得到了这个(但我对vba完全陌生)
Sub Copy_data()
Dim wb As Workbook
Dim ws1 As Worksheet
Dim ws2 As Worksheet
Dim w
我使用了来自的代码,如下所示,但经过删节,我在主窗口中看到了WinForm,但是我放置在标签中的示例文本是不可见的。
[System.Windows.Markup.ContentProperty("Child")]
public class WinFormsHost : HwndHost
{
public WinFormsHost()
{
var form = new ChildForm();
Child = form;
}
private System.Windows.Forms.Form child;
public event Event
我希望我的音乐机器人在加入频道时是耳聋的。但我还是希望它能播放音乐。我已经尝试过使用await change_voice_state(*, channel, self_mute=False, self_deaf=False)函数和discord.py文档,但都没有用。我使用commands.command方法。以下是我的源代码的相关部分: async def play(self, ctx, *, url):
"""Plays a song from a URL"""
client = ctx.guild
变量是否必须是特定可用的(术语帮助?)在For...Next语句中
Dim ws As Worksheet
Set ws = ActiveSheet
For i = 10 To 13
ws.Shapes.Range(Array("Rectangle " & i + 24)).Height = 43.5
ws.Shapes.Range(Array("Rectangle " & i + 24)).Width = 43.5
ws.Shapes.Range(Array("Rectangl
我有一些关于以下代码的问题:
Sub Sendorders()
Application.ScreenUpdating = False
Dim wb As Workbook: Set wb = Workbooks("Hugo Automate V15.xlsm")
Dim ws As Worksheet: Set ws = wb.Worksheets("Bid-Ask")
Dim i As Long
ws.Activate
ws.Cells(2, 20) = ws.Cells(2, 20) & " Equity"
For i =
我有一堆组合框(ActiveX元素),如果它旁边有x,我想循环遍历它们来填充它们,如果没有x,则将它们空出来。这已经起作用了,但是当我尝试清除组合框的文本/值时,它已经被清空,但我得到了一个错误。知道为什么吗?
Dim ws2 as worksheet
Dim ComBx As OLEObject
Dim Name As String
Dim NameParaWS3
Dim ComboFill As Range
Dim VisibleFill As Range
For Each ComBx In ws2.OLEObjects
ComBx.ListFillRange = ""
我有需要认证的web服务。
public class WebService : System.Web.Services.WebService
{
public AuthHeader Authentication;
[WebMethod]
[SoapHeader("Authentication", Required = true)]
public void Hello(string name)
{
string result = "";
if (Authentication.Username
我试图在变量中捕获ranger的行号和列号。
经过大量的谷歌搜索后,似乎我必须将这些存储为Long而不是整数,但不确定。无论哪种方式,当我到达行"r1 = wb.ws1.Range("CI14").Row“时,我都会得到相同的"438 object get support this property or method”错误,如下所示。
Dim wb As Workbook
Set wb = Application.Workbooks("test.xlsm")
Dim ws1 As Worksheet
Set ws1 = wb.Worksheet
我得到了以下从德语翻译过来的错误:
错误BC30068:表达式是一个值,不能是赋值的目标。
我正在尝试做以下几件事:
sheet.Cells(row, col).Value = newVal ' this is VB
其中,我将单元格声明为:
public Cell Cells(int x, int y) // this is C#
{
return new Cell(this, x, y);
}
public struct Cell
{
Worksheet ws;
int x;
int y;
public Cell(Worksheet ws
我已经更新了下面的代码以发送多个电子邮件给指定的接收者,但是我无法将表粘贴到邮箱中,并且电子邮件接收程序正在被复制。
我需要“列E”来过滤和粘贴该表格到电子邮件正文使用电子邮件收件人从“J列”
需要为“E”栏中的所有值单独发送电子邮件
Sub SendMultipleEmailsaa()
Dim Mail_Object, OutApp As Object
Dim ws As Worksheet: Set ws = ActiveSheet
Dim arr() As Variant
LastRow = ws.Cells(ws.Rows.Count, "b").En
运行下面的代码,我希望看到的结果是在第27行中隐藏所有带有0的列,但根据数据的频率,隐藏这些列的范围是不同的。基本上,以日/月/周开始的工作表中的任何内容都必须隐藏列,其余的页都应该单独保存。它使用if语句在一个简单的工作簿上工作(从X开始到所有其他的),但是当我添加case语句时,它打破了.
用粗体标记的行是一个错误:运行时错误'1004‘应用程序定义的或对象定义的错误。
我是新手,所以请随意推荐一个好的vba教程网站/书。
Sub Hide_Zero_Columns()
Dim WS As Worksheet
Dim Col_to_hide As Range
我不能将参数从应用程序传递到处理程序。在EJB中,我调用我的webservice:
MyNameWSService service = new MyNameWSService(URL); //MyNameWSService = class with annotation @WebServiceClient
((BindingProvider)service.getMyNameWSPort()).getRequestContext().put("login", login);
HeaderHandlerResolver handlerResolver = new HeaderHa
这是我的代码,我试图删除两行,如果两行之间没有空格,那么这两行将有"-----------",但如果"-----------"的值在或更高,则不应该删除。
由于某些原因,它给了我一个无法获得match属性的Run-time error 1004。如能提供任何协助,将不胜感激。
Sub Test()
Dim WS As Worksheet, row1 As Long, row2 As Long, rng As Long, n As Long, nlast As Long, rw As Range
For Each WS In Shee
我有一个名为AI的类,它有一个属性来访问excel工作表,另一个属性来访问另一个名为"Columns“的类,其中包含一堆变量。AI.WS返回工作表。AI.Columns.name of column将返回一个整数,表示具有该名称的列号。但是在"Columns“类中,它调用一个需要工作表(AI.WS)的函数,以便知道在哪里查找列。如何从vba中的类AI.Columns (子类)访问属性AI.WS (超类)?
我有两个工作表包含图表,并使用宏运行所有工作表中的图表,并更新绘制的值。
但是,在尝试引用第一个工作表之后的图表时,我遇到了一个问题--尽管工作表的引用发生了更改,但对图表的引用却没有改变。
循环如下所示:
For Each ws In ThisWorkbook.Worksheets
Debug.Print ws.Name
Debug.Print ws.ChartObjects("Kortsone").Chart.Name
With ws.ChartObjects("Kortsone").Chart
...
End With
Next w
我正在添加一个功能,以MS Access数据库。在我的机器上,代码从来不会崩溃。在其他机器上(包括Access的非运行时副本),很小的更改就会导致崩溃。以下代码在Excel中设置导出查询的格式:
Option Compare Database
Public Function format_status_report(ByVal filename As String, ByVal path As String)
Dim obj_excel As Excel.Application
Dim wb As Excel.Workbook
Dim ws As Excel.Work